anchor.diff:      after 2000 -> timeout
       end.
   
  +%%%----------------------------------------------------------------
  +flush_rest() -> lists:reverse(flush_rest([])).
  +
  +flush_rest(Acc) ->
  +    receive Any -> [Any|Acc]
  +    after 0 -> Acc
  +    end.
  
positive.code:                             ct:fail("Sup tree changed!")
                      end
              after 10000 ->
                      ssh:close(ConnectionRef),
                      ssh:stop_daemon(Daemon),
                      ct:fail("CLI Timeout")
              end
      after 10000 ->
              ssh:close(ConnectionRef),
              ssh:stop_daemon(Daemon),
              ct:fail("CLI Timeout")
      end.
  
  
  chk_empty_con_daemon(Daemon) ->
      ?wait_match([{_,SubSysSup, supervisor,[ssh_subsystem_sup]},
  
negative.code:     ct:log("GroupPid = ~p, ShellPid = ~p",[GroupPid,ShellPid]),
  
      receive
          {ssh_cm,ConnectionRef, {data, ChannelId0, 0, <<"TimeoutShell started!",Rest/binary>>}} ->
              ct:log("TimeoutShell started. Rest = ~p", [Rest]),
              receive
                  %%---- wait for the subsystem to terminate
                  {ssh_cm,ConnectionRef,{closed,ChannelId0}} ->
  