perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/protocol echo.t echo_filter.t eliza.t
Date Tue, 01 Jan 2002 10:44:30 GMT
stas        02/01/01 02:44:30

  Modified:    t/protocol echo.t echo_filter.t eliza.t
  Log:
  debug prints start with #
  
  Revision  Changes    Path
  1.3       +2 -3      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.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- echo.t	17 Jun 2001 12:24:41 -0000	1.2
  +++ echo.t	1 Jan 2002 10:44:29 -0000	1.3
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Test;
  +use Apache::TestUtil;
   use Apache::TestRequest ();
   
   my @test_strings = qw(hello world);
  @@ -13,9 +14,7 @@
   ok $socket;
   
   for (@test_strings) {
  -    print "SEND ='$_'\n";
       print $socket "$_\n";
       chomp(my $reply = <$socket>);
  -    print "REPLY='$reply'\n";
  -    ok $reply eq $_;
  +    ok t_cmp($_, $reply);
   }
  
  
  
  1.2       +2 -3      modperl-2.0/t/protocol/echo_filter.t
  
  Index: echo_filter.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo_filter.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- echo_filter.t	15 Jul 2001 22:39:36 -0000	1.1
  +++ echo_filter.t	1 Jan 2002 10:44:29 -0000	1.2
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Test;
  +use Apache::TestUtil;
   use Apache::TestRequest ();
   
   my @test_strings = qw(hello world);
  @@ -13,9 +14,7 @@
   ok $socket;
   
   for (@test_strings) {
  -    print "SEND ='$_'\n";
       print $socket "$_\n";
       chomp(my $reply = <$socket>);
  -    print "REPLY='$reply'\n";
  -    ok $reply eq $_;
  +    ok t_cmp($_, $reply);
   }
  
  
  
  1.3       +3 -2      modperl-2.0/t/protocol/eliza.t
  
  Index: eliza.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/eliza.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- eliza.t	18 Sep 2001 15:20:11 -0000	1.2
  +++ eliza.t	1 Jan 2002 10:44:30 -0000	1.3
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest ();
   
   my @test_strings = ('Hello Eliza', 
  @@ -17,9 +18,9 @@
   ok $socket;
   
   for (@test_strings) {
  -    print "SEND ='$_'\n";
       print $socket "$_\n";
       chomp(my $reply = <$socket>);
  -    print "REPLY='$reply'\n";
  +    t_debug "send: $_";
  +    t_debug "recv: $reply";
       ok $reply;
   }
  
  
  

Mime
View raw message