From modperl-cvs-return-4570-apmail-perl-modperl-cvs-archive=perl.apache.org@perl.apache.org Fri Jul 09 21:48:18 2004 Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 39696 invoked from network); 9 Jul 2004 21:48:18 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 9 Jul 2004 21:48:18 -0000 Received: (qmail 80659 invoked by uid 500); 9 Jul 2004 21:48:18 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 80592 invoked by uid 500); 9 Jul 2004 21:48:18 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 80576 invoked by uid 500); 9 Jul 2004 21:48:18 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org X-ASF-Spam-Status: No, hits=0.5 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Date: 9 Jul 2004 21:48:14 -0000 Message-ID: <20040709214814.39622.qmail@minotaur.apache.org> From: randyk@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/protocol echo_bbs.t echo_bbs2.t echo_block.t echo_filter.t X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N 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($_)); }