anchor.diff:  suite() -> 
       [{ct_hooks, [ts_install_cth]}].
   
  -
   all() -> 
  +    %% This is a temporary messure to ensure that we can 
  +    %% test the socket backend without effecting *all*
  +    %% applications on *all* machines.
  +    %% This flag is set only for *one* host.
  +    case ?TEST_INET_BACKENDS() of
  +        true ->
  +            [
  +             {group, inet_backend_default},
  +             {group, inet_backend_inet},
  +             {group, inet_backend_socket}
  +            ];
  +        _ ->
  +            [
  +             {group, inet_backend_default}
  +            ]
  +    end.
  +
  +groups() -> 
  +    [
  +     {inet_backend_default, [], inet_backend_default_cases()},
  +     {inet_backend_inet,    [], inet_backend_inet_cases()},
  +     {inet_backend_socket,  [], inet_backend_socket_cases()},
  +
  +     {all,                  [], all_cases()},
  +     {start_and_stop_tests, [], start_and_stop_tests_cases()},
  +     {misc_tests,           [], misc_tests_cases()},
  +     {user_tests,           [], user_tests_cases()},
  +     {agent_tests,          [], agent_tests_cases()},
  +     {request_tests,        [], request_tests_cases()},
  +     {request_tests_mt,     [], request_tests_mt_cases()},
  +     {get_tests,            [], get_tests_cases()},
  +     {get_next_tests,       [], get_next_tests_cases()},
  +     {set_tests,            [], set_tests_cases()},
  +     {bulk_tests,           [], bulk_tests_cases()},
  +     {event_tests,          [], event_tests_cases()},
  +     {event_tests_mt,       [], event_tests_mt_cases()},
  +     {tickets,              [], tickets_cases()},
  +     {otp8015,              [], otp8015_cases()},
  +     {otp8395,              [], otp8395_cases()},
  +     {ipv6,                 [], ipv6_tests()},
  +     {ipv6_mt,              [], ipv6_tests()}
  +
  +    ].
  +
  +inet_backend_default_cases() ->
  +    [{all, [], all_cases()}].
  +
  +inet_backend_inet_cases() ->
  +    [{all, [], all_cases()}].
  +
  +inet_backend_socket_cases() ->
  +    [{all, [], all_cases()}].
  +
  +all_cases() -> 
       [
        {group, start_and_stop_tests}, 
        {group, misc_tests}, 
  
positive.code:             "~n      ~p"
              "~n", [Config]),
  
      ConfDir = ?config(manager_conf_dir, Config),
      DbDir   = ?config(manager_db_dir, Config),
  
      write_manager_conf(ConfDir),
  
      Opts = [{server, [{verbosity, trace}]},
  	    {net_if, [{verbosity, trace}]},
  	    {note_store, [{verbosity, trace}]},
  	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
  
  
      ?IPRINT("try load snmp application"),
  
negative.code:     ?IPRINT("starting with Config: "
              "~n      ~p", [Config]),
  
      SCO     = ?config(socket_create_opts, Config),
      ConfDir = ?config(manager_conf_dir,   Config),
      DbDir   = ?config(manager_db_dir,     Config),
  
      write_manager_conf(ConfDir),
  
      Opts = [{server,     [{verbosity, trace}]},
  	    {net_if,     [{verbosity, trace}, {options, SCO}]},
  	    {note_store, [{verbosity, trace}]},
  	    {config,     [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
  
      ?IPRINT("try starting manager"),
      ok = snmpm:start(Opts),
  