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 ra...@apache.org on 2004/07/09 23:48:14 UTC
cvs commit: modperl-2.0/t/protocol echo_bbs.t echo_bbs2.t echo_block.t echo_filter.t
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($_));
}