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 ra...@apache.org on 2004/07/09 17:36:13 UTC
cvs commit: modperl-2.0/t/error runtime.t syntax.t
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",
);