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 $_;
   }