anchor.diff:  
   -define(heap_binary_size, 64).
   
  -init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) ->
  -    CIOD = rpc(Config,
  -               fun() ->
  -                       case catch erts_debug:get_internal_state(available_internal_state) of
  -                           true -> ok;
  -                           _ -> erts_debug:set_internal_state(available_internal_state, true)
  -                       end,
  -                       erts_debug:get_internal_state(check_io_debug)
  -               end),
  -    erlang:display({init_per_testcase, Case}),
  -    0 = element(1, CIOD),
  -    [{testcase, Case}|Config].
  -
  -end_per_testcase(Case, Config) ->
  -    erlang:display({end_per_testcase, Case}),
  -    CIOD = rpc(Config,
  -               fun() ->
  -                       get_stable_check_io_info(),
  -                       erts_debug:get_internal_state(check_io_debug)
  -               end),
  -    0 = element(1, CIOD),
  -    ok.
  -
   suite() ->
       [{ct_hooks,[ts_install_cth]},
        {timetrap, {minutes, 1}}].
  
positive.code: start_node(Name) ->
      start_node(Name, "").
  start_node(NodeName, Args) ->
      Pa = filename:dirname(code:which(?MODULE)),
      Name = list_to_atom(atom_to_list(?MODULE)
                          ++ "-"
                          ++ atom_to_list(NodeName)
  
negative.code:                         ++ integer_to_list(erlang:system_time(second))
                          ++ "-"
                          ++ integer_to_list(erlang:unique_integer([positive]))),
      start_node_final(Name, Args).
  start_node_final(Name, Args) ->
      {ok, Pwd} = file:get_cwd(),
      FinalArgs = [Args, " -pa ", filename:dirname(code:which(?MODULE))],
      {ok, Node} = test_server:start_node(Name, slave, [{args, FinalArgs}]),
      LogPath = Pwd ++ "/error_log." ++ atom_to_list(Name),
      ct:pal("Logging to: ~s", [LogPath]),
      rpc:call(Node, logger, add_handler, [file_handler, logger_std_h,
                                           #{formatter => {logger_formatter,#{ single_line => false }},
                                             config => #{file => LogPath }}]),
      {ok, Node}.
  
  stop_node(Node) ->
      test_server:stop_node(Node).
  