perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/protocol echo_bbs.t echo_bbs2.t echo_block.t echo_filter.t
Date Fri, 09 Jul 2004 21:48:14 GMT
randyk      2004/07/09 14:48:14

  Modified:    t/protocol echo_bbs.t echo_bbs2.t echo_block.t echo_filter.t
  Log:
  swap order of args to t_cmp in t/protocol tests to use new
  ($received, $expected, $comment) syntax.
  
  Revision  Changes    Path
  1.2       +1 -1      modperl-2.0/t/protocol/echo_bbs.t
  
  Index: echo_bbs.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo_bbs.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- echo_bbs.t	3 Jun 2004 08:20:50 -0000	1.1
  +++ echo_bbs.t	9 Jul 2004 21:48:13 -0000	1.2
  @@ -16,5 +16,5 @@
   for (@test_strings) {
       print $socket "$_\n";
       chomp(my $reply = <$socket>||'');
  -    ok t_cmp(uc($_), $reply);
  +    ok t_cmp($reply, uc($_));
   }
  
  
  
  1.2       +1 -1      modperl-2.0/t/protocol/echo_bbs2.t
  
  Index: echo_bbs2.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo_bbs2.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- echo_bbs2.t	4 Jun 2004 04:12:53 -0000	1.1
  +++ echo_bbs2.t	9 Jul 2004 21:48:13 -0000	1.2
  @@ -16,5 +16,5 @@
   for (@test_strings) {
       print $socket "$_\n";
       chomp(my $reply = <$socket>||'');
  -    ok t_cmp(uc($_), $reply);
  +    ok t_cmp($reply, uc($_));
   }
  
  
  
  1.2       +1 -1      modperl-2.0/t/protocol/echo_block.t
  
  Index: echo_block.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo_block.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- echo_block.t	23 Apr 2004 01:37:54 -0000	1.1
  +++ echo_block.t	9 Jul 2004 21:48:13 -0000	1.2
  @@ -16,5 +16,5 @@
   for (@test_strings) {
       print $socket "$_\n";
       chomp(my $reply = <$socket>||'');
  -    ok t_cmp($_, $reply);
  +    ok t_cmp($reply, $_);
   }
  
  
  
  1.5       +1 -1      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.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- echo_filter.t	3 Jun 2004 08:20:13 -0000	1.4
  +++ echo_filter.t	9 Jul 2004 21:48:13 -0000	1.5
  @@ -16,5 +16,5 @@
   for (@test_strings) {
       print $socket "$_\n";
       chomp(my $reply = <$socket>||'');
  -    ok t_cmp(uc($_), $reply);
  +    ok t_cmp($reply, uc($_));
   }
  
  
  

Mime
View raw message