anchor.diff:  %%--------------------------------------------------------------------
   %% Internal functions ------------------------------------------------
   %%--------------------------------------------------------------------
  +
  +do_simple_exec(ConnectionRef) ->
  +    {ok, ChannelId0} = ssh_connection:session_channel(ConnectionRef, infinity),
  +    success = ssh_connection:exec(ConnectionRef, ChannelId0,
  +				  "echo testing", infinity),
  +    %% receive response to input
  +    receive
  +	{ssh_cm, ConnectionRef, {data, ChannelId0, 0, <<"testing\n">>}} ->
  +	    ok
  +    after
  +	10000 -> ct:fail("timeout ~p:~p",[?MODULE,?LINE])
  +    end,
  +
  +    %% receive close messages
  +    receive
  +	{ssh_cm, ConnectionRef, {eof, ChannelId0}} ->
  +	    ok
  +    after
  +	10000 -> ct:fail("timeout ~p:~p",[?MODULE,?LINE])
  +    end,
  +    receive
  +	{ssh_cm, ConnectionRef, {exit_status, ChannelId0, 0}} ->
  +	    ok
  +    after
  +	10000 -> ct:fail("timeout ~p:~p",[?MODULE,?LINE])
  +    end,
  +    receive
  +	{ssh_cm, ConnectionRef,{closed, ChannelId0}} ->
  +	    ok
  +    after
  +	10000 -> ct:fail("timeout ~p:~p",[?MODULE,?LINE])
  +    end.
  +
  +
  +%%--------------------------------------------------------------------
   flush_msgs() ->
       receive
           _ -> flush_msgs()
  
positive.code: 						    {password, "morot"},
  						    {exec, fun ssh_exec_echo/1}])
  	       end),
      {ok,Sc} = gen_tcp:accept(Sl),
      {ok,ConnectionRef} = ssh:connect(Sc, [{silently_accept_hosts, true},
  					  {user, "foo"},
  					  {password, "morot"},
  					  {user_interaction, true},
  					  {user_dir, UserDir}]),
      
      {ok, ChannelId0} = ssh_connection:session_channel(ConnectionRef, infinity),
  
      success = ssh_connection:exec(ConnectionRef, ChannelId0,
  
negative.code:             ct:fail("Exec Timeout")
      end.
  
  %%--------------------------------------------------------------------
  test_shell_is_enabled(ConnectionRef) ->
      test_shell_is_enabled(ConnectionRef, <<"Eshell V">>).
  
  