sbekman 01/06/17 05:24:42 Modified: t/protocol echo.t Log: improve the verbose testing Revision Changes Path 1.2 +2 -1 modperl-2.0/t/protocol/echo.t Index: echo.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/protocol/echo.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- echo.t 2001/04/02 09:07:22 1.1 +++ echo.t 2001/06/17 12:24:41 1.2 @@ -13,8 +13,9 @@ ok $socket; for (@test_strings) { + print "SEND ='$_'\n"; print $socket "$_\n"; chomp(my $reply = <$socket>); - print "REPLY=`$reply'\n"; + print "REPLY='$reply'\n"; ok $reply eq $_; }