anchor.diff:                          ++ integer_to_list(erlang:system_time(second))
                           ++ "-"
                           ++ integer_to_list(erlang:unique_integer([positive]))),
  -    test_server:start_node(Name, slave, [{args, Args ++ " -pa "++Pa}]).
  +    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).
  
positive.code: 
  -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}}].
  
negative.code: start_node(Name) ->
      start_node(Name, "").
  start_node(NodeName, Args) ->
      Name = list_to_atom(atom_to_list(?MODULE)
                          ++ "-"
                          ++ atom_to_list(NodeName)
  