randyk 2004/07/09 08:36:13
Modified: t/error runtime.t syntax.t Log: swap args to t_cmp in t/error tests to use new ($received, $expected, $comment) syntax. Revision Changes Path 1.4 +2 -2 modperl-2.0/t/error/runtime.t Index: runtime.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/error/runtime.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- runtime.t 4 May 2004 06:19:59 -0000 1.3 +++ runtime.t 9 Jul 2004 15:36:13 -0000 1.4 @@ -19,8 +19,8 @@ my $res = GET("$location?$type"); #t_debug($res->content); ok t_cmp( - 500, $res->code, + 500, "500 error on $type exception", ); } @@ -28,8 +28,8 @@ for my $type (@trapped) { my $body = GET_BODY("$location?$type"); ok t_cmp( - "ok $type", $body, + "ok $type", "200 on $type exception", ); } 1.3 +1 -1 modperl-2.0/t/error/syntax.t Index: syntax.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/error/syntax.t,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- syntax.t 18 Apr 2003 06:18:56 -0000 1.2 +++ syntax.t 9 Jul 2004 15:36:13 -0000 1.3 @@ -11,7 +11,7 @@ my $res = GET($location); #t_debug($res->content); ok t_cmp( - 500, $res->code, + 500, "500 error on syntax error", );