anchor.diff:                                lists:member(P,BeforeNotAfter)]]),
   	    ct:log("After but not before:~n~p~n",
   		   [[{P,process_info(P)} || P <- ProcsAfter -- ProcsBefore]]),
  +	    ensure_observer_stopped(),
   	    ct:fail("leaking processes");
          true ->
   	    ok
       end,
  +    ?P("ensure observer stopped"),
  +    ensure_observer_stopped(?SECS(2)),
       ?P("basic -> done"),
       ok.
   
  
positive.code:          true  -> application:start(sasl);
           false -> ok
      end,
      ok.
  
  table_win(suite) -> [];
  table_win(doc) -> [""];
  table_win(Config) when is_list(Config) ->
      Tables = [ets:new(list_to_atom("Test-" ++ [C]), [public]) || C <- lists:seq($A, $Z)],
      Table = lists:nth(3, Tables),
      ets:insert(Table, [{N,100-N} || N <- lists:seq(1,100)]),
  
negative.code: 
  %% Default timetrap timeout (set in init_per_testcase)
  -define(default_timeout, ?t:minutes(2)).
  
  -define(SECS(__S__), timer:seconds(__S__)).
  
  -define(P(F),    print(F)).
  -define(P(F, A), print(F, A)).
  