anchor.diff:  	Config.
   
   init_per_suite(Config) ->
  -
  -    %% Copied from test_server_ctrl ln 647, we have to do this here as
  -    %% the test_server only does this when run without common_test
  -    global:sync(),
  -    case global:whereis_name(test_server) of
  -	undefined ->
  -	    io:format(user, "Registering test_server globally!~n",[]),
  -	    global:register_name(test_server, whereis(test_server_ctrl));
  -	Pid ->
  -	    case node() of
  -		N when N == node(Pid) ->
  -		    io:format(user, "Warning: test_server already running!\n", []),
  -		    global:re_register_name(test_server,self());
  -		_ ->
  -		    ok
  -	    end
  -    end,
       Config.
   
   end_per_suite(_Config) ->
  -    global:unregister_name(test_server),
       ok.
   
   
  
positive.code:     ?line write_high_level_trace(Config),
      ?line _ = 
          gen_server:call(global_name_server, high_level_trace_stop, infinity),
      ?line[global:unregister_name(N) || N <- global:registered_names(), 
                                         N =/= test_server],
      ?line InitRegistered = ?registered,
      ?line Registered = registered(),
      ?line [io:format("~s local names: ~p~n", [What, N]) ||
  
negative.code:                         {"Global Locks     (ETS)", global_locks},
                          {"Global Pid Names (ETS)", global_pid_names},
                          {"Global Pid Ids   (ETS)", global_pid_ids}]],
      ?UNTIL([] =:= global:registered_names()),
      ?UNTIL([] =:= nodes()),
      ?UNTIL([node()] =:= get_known(node())),
      ok.
  