anchor.diff:      ct:comment(
         string:join(lists:map(fun erlang:atom_to_list/1, AtomList),
   		", ")).
  +
  +%%%----------------------------------------------------------------
  +no_forwarding() ->
  +    %%% Check if the ssh of the OS has tunneling enabled
  +    Cmnd = "ssh -R 0:localhost:4567 localhost exit",
  +    FailRegExp =
  +        "Port forwarding is disabled"
  +        "|remote port forwarding failed"
  +        "|Bad.*specification",
  +    {Result,TheText} =
  +        try
  +            Parent = self(),
  +            Pid = spawn(fun() ->
  +                                Parent ! {self(), os:cmd(Cmnd)}
  +                        end),
  +            receive
  +                {Pid, Txt} ->
  +                    case re:run(Txt, FailRegExp) of
  +                        {match,_} -> {true,Txt};
  +                        _ -> {false,Txt}
  +                end
  +        after 10000 ->
  +                ct:log("*** TIMEOUT ***",[]),
  +                {true,""}
  +        end
  +    catch C:E:S ->
  +            ct:log("Exception in no_forwarding():~n~p:~p~n~p~n", [C,E,S]),
  +            {true, ""}
  +    end,
  +    ct:log("---- os:cmd(~p) returned:~n~s~n"
  +           "~n"
  +           "---- Checking with regexp~n"
  +           "~p~n"
  +           "~n"
  +           "---- The function no_forwarding() returns ~p",
  +           [Cmnd,TheText, FailRegExp, Result]),
  +    Result.
  
positive.code:     ssh_test_lib:setup_dsa_known_host(DataDir, UserDir),
      ssh_test_lib:setup_rsa_known_host(DataDir, UserDir),
      Config;
  init_per_group(erlang_client, Config) ->
      CommonAlgs = ssh_test_lib:algo_intersection(
  		   ssh:default_algorithms(),
  
negative.code:     end.
  
  groups() -> 
      [{erlang_client, [], [tunnel_in_erlclient_erlserver,
                            tunnel_out_erlclient_erlserver,
                            {group, tunnel_distro_server},
                            erlang_shell_client_openssh_server
  			 ]},
       {tunnel_distro_server, [], [tunnel_in_erlclient_openssh_server,
                                   tunnel_out_erlclient_openssh_server]},
       {erlang_server, [], [{group, tunnel_distro_client},
                            erlang_server_openssh_client_renegotiate                          
  			 ]},
       {tunnel_distro_client, [], [tunnel_in_non_erlclient_erlserver,
                                   tunnel_out_non_erlclient_erlserver]}
      ].
  
  init_per_suite(Config) ->
  