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 st...@apache.org on 2003/01/11 08:41:04 UTC
cvs commit: modperl-2.0/t/apache scanhdrs2.t
stas 2003/01/10 23:41:04
Modified: t/apache scanhdrs2.t
Log:
t_cmp's args are (expected, received, comment)
not (received, expected, comment)
(the debug info was confusing otherwise)
Revision Changes Path
1.2 +3 -3 modperl-2.0/t/apache/scanhdrs2.t
Index: scanhdrs2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/scanhdrs2.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- scanhdrs2.t 29 Jun 2002 20:39:22 -0000 1.1
+++ scanhdrs2.t 11 Jan 2003 07:41:04 -0000 1.2
@@ -14,10 +14,10 @@
my $res = GET "$location?$redirect", redirect_ok => 0;
-ok t_cmp($res->header('Location'), $redirect,
+ok t_cmp($redirect, $res->header('Location'),
"Location header");
-ok t_cmp($res->code, 302,
+ok t_cmp(302, $res->code,
"status == 302");
$redirect = '/index.html';
@@ -27,7 +27,7 @@
ok t_cmp(1, !$res->header('Location'),
"no Location header");
-ok t_cmp($res->code, 200,
+ok t_cmp(200, $res->code,
"status == 200");
ok t_cmp(qr{welcome to}, $res->content,