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,