anchor.diff:  %%   ERL_CRASH_DUMP_SECONDS=0 will force beam not to dump an erl_crash.dump.
   node_start_immediately_after_crash(suite) -> {req, [{time, 10}]};
   node_start_immediately_after_crash(Config) when is_list(Config) ->
  -    {ok, Node} = start_check(slave, heart_test, [{"ERL_CRASH_DUMP_SECONDS", "0"}]),
  +    {ok, Node} = start_check(loose, heart_test_imm, [{"ERL_CRASH_DUMP_SECONDS", "0"}]),
   
       ok = rpc:call(Node, heart, set_cmd,
   	[atom_to_list(lib:progname()) ++
  
positive.code: 
  -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
  	 init_per_group/2,end_per_group/2, start/1, restart/1, 
  	 reboot/1, node_start_immediately_after_crash/1, set_cmd/1, clear_cmd/1, get_cmd/1,
  	 dont_drop/1, kill_pid/1]).
  
  -export([init_per_testcase/2, end_per_testcase/2]).
  
negative.code: wait_for_node(_,0) ->
      false;
  wait_for_node(Node,N) ->
      receive after 1000 -> ok end,
      case net_adm:ping(Node) of
  	pong -> ok;
  	pang -> wait_for_node(Node,N-1)
      end.
  
  erl() ->	   
      case os:type() of
  	{win32,_} -> "werl ";
  	_ -> "erl "
      end.
      
  name(Node) when is_list(Node) -> name(Node,[]);
  