anchor.diff:           true  -> application:start(sasl);
            false -> ok
       end,
  +    ?P("ensure observer stopped"),
  +    ensure_observer_stopped(?SECS(2)),
  +    ?P("process_win -> done"),
       ok.
   
   table_win(suite) -> [];
   table_win(doc) -> [""];
   table_win(Config) when is_list(Config) ->
  +    ?P("table_win -> entry"),
       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)]),
  
positive.code:     timer:sleep(3000),
      wx_object:get_pid(TObj) ! #wx{event=#wxClose{type=close_window}},
      observer:stop(),
      ok.
  
  %% Test PR-1296/OTP-14151
  %% Clicking a link to a port before the port tab has been activated the
  %% first time crashes observer.
  port_win_when_tab_not_initiated(_Config) ->
      {ok,Port} = gen_tcp:listen(0,[]),
      ok = observer:start(),
      _Notebook = setup_whitebox_testing(),
      observer ! {open_link,erlang:port_to_list(Port)},
      timer:sleep(1000),
      observer:stop(),
      ok.
  
  
  
negative.code:                               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.
  
  