anchor.diff:  	    timer:sleep(5000),
   	    undefined = rpc:call(CTNode, erlang, whereis, [ct_util_server])
       end,
  -    %% use run_test interface (simulated)
  +    CtRunTestResult.
  +
  +run_ct_script_start(Opts, Config) ->
  +    CTNode = proplists:get_value(ct_node, Config),
  +    Level = proplists:get_value(trace_level, Config),
       Opts1 = [{halt_with,{?MODULE,ct_test_halt}} | Opts],
       test_server:format(Level, "Saving start opts on ~p: ~p~n",
   		       [CTNode, Opts1]),
  
positive.code: %%%-----------------------------------------------------------------
  %%% 
  run(Opts, Config) when is_list(Opts) ->
      CTNode = proplists:get_value(ct_node, Config),
      Level = proplists:get_value(trace_level, Config),
      %% use ct interface
      test_server:format(Level, "~n[RUN #1] Calling ct:run_test(~p) on ~p~n",
  		       [Opts, CTNode]),
      CtRunTestResult = rpc:call(CTNode, ct, run_test, [Opts]),
  
negative.code: -export([init_per_suite/1, init_per_suite/2, end_per_suite/1,
  	 init_per_testcase/2, end_per_testcase/2,
  	 write_testspec/2, write_testspec/3,
  	 run/2, run/3, run/4, run_ct_run_test/2, run_ct_script_start/2,
  	 get_opts/1, wait_for_ct_stop/1]).
  
  -export([handle_event/2, start_event_receiver/1, get_events/2,
  	 verify_events/3, verify_events/4, reformat/2, log_events/4,
  