anchor.diff:          {ssh_cm, ConnectionRef, {data, ChannelId, 0, <<Expect:ExpSz/binary, _/binary>>}} = R ->
               ct:log("~p:~p Got expected ~p",[?MODULE,?LINE,R]);
           Other ->
  -            ct:log("~p:~p Got unexpected ~p",[?MODULE,?LINE,Other])
  +            ct:log("~p:~p Got unexpected ~p~nExpect: ~p~n",
  +                   [?MODULE,?LINE, Other, {ssh_cm, ConnectionRef, {data, ChannelId, 0, Expect}} ])
       after 5000 ->
               {fail,"Exec Timeout"}
       end.
  
positive.code: 	    flush_msgs();
  
          R ->
              ct:log("~p:~p Got unexpected ~p",[?MODULE,?LINE,R]),
              ct:fail("Strange shell response")
  
      after 5000 ->
  
negative.code:     after 5000 ->
              receive
                  Other ->
                      ct:log("Received other:~n~p~nExpected: ~p~n",
                             [Other, {ssh_cm, ConnectionRef, {data, '_ChannelId', ExpectType, Expect}} ]),
                      ct:fail("Unexpected response")
              after 0 ->
                      ct:fail("Exec Timeout")
  