anchor.diff:  
   start_link_test_() -> 
     test_start_stop_(
  -    fun() -> {ok,Pid} = start_link(), Pid end,
  +    fun start_helper_/0,
       fun stop_helper_/1,
       "start_link test" 
     ).
  
positive.code:     ]
    ).
  
  stop_helper_(Pid) -> stop_helper_(Pid, 3000).
  stop_helper_(Pid, Timeout) ->
    true = exit(Pid, normal),
  
negative.code: %%%%% eunit tests just for coverage %%%%%
  handle_cast_test_() ->
    { setup,
      fun start_helper_/0,
      fun stop_helper_/1,
      ?_test(cast(blah))
    }.
  
  handle_info_test_() -> 
    { setup,
      fun start_helper_/0,
      fun stop_helper_/1,
      ?_test(?MODULE ! yo)
    }.
  
  