You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by sb...@apache.org on 2001/06/17 14:24:42 UTC
cvs commit: modperl-2.0/t/protocol echo.t
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 $_;
}