anchor.diff:      run_some(List, Opts);
   
   %% run/2
  -%% Runs one test spec with Options
  -run(Testspec, Config) when is_atom(Testspec), is_list(Config) ->
  +%% Runs one test spec with list of suites or with options
  +run(Testspec, ModsOrConfig) when is_atom(Testspec),
  +				 is_list(ModsOrConfig) ->
  +    case is_list_of_suites(ModsOrConfig) of
  +	false ->
  +	    run(Testspec, {config_list,ModsOrConfig});
  +	true ->
  +	    run_some([{Testspec,M} || M <- ModsOrConfig],
  +		     [batch])
  +    end;
  +run(Testspec, {config_list,Config}) ->
       Options=check_test_get_opts(Testspec, Config),
       IsSmoke=proplists:get_value(smoke,Config),
       File=atom_to_list(Testspec),
  
positive.code:     run_test(File, [{spec,[Spec]}], Options);
  %% Runs one module in a spec (interactive)
  run(Testspec, Mod) when is_atom(Testspec), is_atom(Mod) ->
      run_test({atom_to_list(Testspec), Mod}, 
  	     [{suite,Mod}], 
  	     [interactive]).
  
  %% run/3
  %% Run one module in a spec with Config
  run(Testspec,Mod,Config) when is_atom(Testspec), is_atom(Mod), is_list(Config) ->
      Options=check_test_get_opts(Testspec, Config),
      run_test({atom_to_list(Testspec), Mod},
  	     [{suite,Mod}], 
  	     Options);
  
  %% Runs one testcase in a module.
  run(Testspec, Mod, Case) when is_atom(Testspec), is_atom(Mod), is_atom(Case) ->
      Options=check_test_get_opts(Testspec, []),
      Args = [{suite,atom_to_list(Mod)},{testcase,atom_to_list(Case)}],
      run_test(atom_to_list(Testspec), Args, Options).
  
  %% run/4
  %% Run one testcase in a module with Options.
  run(Testspec, Mod, Case, Config) when is_atom(Testspec), 
  				      is_atom(Mod), 
  				      is_atom(Case), 
  				      is_list(Config) ->
      Options=check_test_get_opts(Testspec, Config),
      Args = [{suite,atom_to_list(Mod)}, {testcase,atom_to_list(Case)}],
      run_test(atom_to_list(Testspec), Args, Options).
  
  %% Create a spec to skip all SUITES, this is used when the application
  %% to be tested is not part of the OTP release to be tested.
  
negative.code: 
  run_some([], _Opts) ->
      ok;
  run_some([{Spec,Mod}|Specs], Opts) ->
      case run(Spec, Mod, Opts) of
  	ok -> ok;
  	Error -> io:format("~p: ~p~n",[{Spec,Mod},Error])
      end,
      run_some(Specs, Opts);
  run_some([Spec|Specs], Opts) ->
      case run(Spec, Opts) of
  	ok -> ok;
  