anchor.diff:      {ok, NodeA} = start_node(Config),
       {ok, NodeB} = start_node(Config),
   
  -
       Self = self(),
   
       PidA = spawn_link(
                NodeA,
                fun() ->
                        Self ! ready,
  +                     Reason = lists:duplicate(1000000,100),
                        receive
                            ok ->
                                spawn(fun() ->
  
positive.code:                                            timer:sleep(5),
                                             receive
                                                 M ->
                                                     io:format("~p",[M]),
                                                     erlang:halt("dump")
                                             end
                                     end),
                               exit(lists:duplicate(1000000,100))
                       end
               end),
  
      spawn_link(NodeB,
                 fun() ->
                         [erlang:monitor(process, PidA) || _ <- lists:seq(1,10000)],
                         Self ! done,
                         receive _ -> ok end
                 end),
  
      receive done -> ok end,
      true = rpc:call(NodeA, os, putenv, ["ERL_CRASH_DUMP",Dump]),
      ct:pal("~p",[rpc:call(NodeA, distribution_SUITE, make_busy, [NodeB, 1000])]),
  
      receive ready -> unlink(PidA), PidA ! ok end,
  
  
negative.code:     true = length(Matches) == 1,
  
      file:delete(Dump),
  
      unlink(PidB),
  
      rpc:call(NodeB, erlang, halt, [0]),
  
      ok.
  
  