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