anchor.diff:      %% Create a bad file
       ok = file:write_file(join(DbDir, "snmpa_symbolic_store.db"), 
   			 "calvin and hoppes play chess"),
  +    Factor = ?config(snmp_factor, Config),
  +    ct:timetrap(?MINS(1 + (Factor div 2))),
       Config;
   init_per_testcase2(size_check_ets3_bad_file1, Config) when is_list(Config) ->
       DbDir = ?config(db_dir, Config),
       %% Create a bad file
       ok = file:write_file(join(DbDir, "snmpa_symbolic_store.db"), 
   			 "calvin and hoppes play chess"),
  +    Factor = ?config(snmp_factor, Config),
  +    ct:timetrap(?MINS(1 + (Factor div 2))),
       Config;
   init_per_testcase2(size_check_mnesia, Config) when is_list(Config) ->
  +    Factor = ?config(snmp_factor, Config),
  +    ct:timetrap(?MINS(1 + (Factor div 2))),
       Config;
   init_per_testcase2(cache_test, Config) when is_list(Config) ->
  -    Min = timer:minutes(5), 
  -    Timeout =
  -	case lists:keysearch(tc_timeout, 1, Config) of
  -	    {value, {tc_timeout, TcTimeout}} when TcTimeout < Min ->
  -		Min; 
  -	    {value, {tc_timeout, TcTimeout}} ->
  -		TcTimeout; 
  -	    _ ->
  -		Min
  -	end,
  -    Dog = test_server:timetrap(Timeout), 
  -    [{watchdog, Dog} | Config];
  +    Factor = ?config(snmp_factor, Config),
  +    ct:timetrap(?MINS(5 + (Factor div 2))),
  +    Config;
   init_per_testcase2(_Case, Config) when is_list(Config) ->
  +    Factor = ?config(snmp_factor, Config),
  +    ct:timetrap(?MINS(1 + (Factor div 3))),
       Config.
   
   
  
positive.code:                            exit(Reason)
                     end
             end,
      Post = fun({Node, _}) ->
                     ?STOP_NODE(Node)
             end,
      ?TC_TRY(Name, Pre, Case, Post).
  
  run_on(Node, F) when is_atom(Node) andalso is_function(F, 0) ->
  
negative.code:     do_size_check(Name, Init, Config).
  
  do_size_check(Name, Init, Config) ->
      io:format("do_size_check -> entry with"
                "~n   Name:   ~p"
                "~n   Config: ~p"
                "~n", [Name, Config]),
      Pre = fun() ->
                    {ok, Node} = ?ALIB:start_node(unique(Name)),
                    ok = run_on(Node, Init),
  