anchor.diff:  
   run_command(_M,spawn,{Args,Opts}) ->
       Pid = spawn_opt(fun() -> apply(?MODULE,process_init,Args) end,[link|Opts]),
  +    kill_me(Pid),
       pal("spawn(~p): ~p",[Args,Pid]),
       Pid;
   run_command(M,spawn,Args) ->
  
positive.code:      multiple_writers, hard_busy_driver, soft_busy_driver,
       scheduling_delay_busy,scheduling_delay_busy_nosuspend,
       scheduling_busy_link].
  
  end_per_testcase(_Case, Config) when is_list(Config) ->
      case whereis(busy_drv_server) of
  
negative.code: 
  -module(busy_port_SUITE).
  
  -export([all/0, suite/0, init_per_testcase/2, end_per_testcase/2,
  	 io_to_busy/1, message_order/1, send_3/1, 
  	 system_monitor/1, no_trap_exit/1,
  	 no_trap_exit_unlinked/1, trap_exit/1, multiple_writers/1,
  