stas 2004/08/01 20:39:43
Modified: t/api status.t
Log:
better use GET instead of HEAD
Revision Changes Path
1.2 +4 -4 modperl-2.0/t/api/status.t
Index: status.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/status.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- status.t 2 Aug 2004 03:38:15 -0000 1.1
+++ status.t 2 Aug 2004 03:39:42 -0000 1.2
@@ -17,9 +17,9 @@
# lookup the message "See Other" on its own
my $code = 303; # Apache::HTTP_SEE_OTHER
my $message = "See Other";
- my $res = HEAD "$location?$code=";
+ my $res = GET "$location?$code=";
ok t_cmp $res->code, $code, "code";
- ok t_cmp $res->message, $message, "message";
+ ok t_cmp $res->message, $message, "code message";
ok t_cmp $res->content, "", "content";
}
@@ -31,9 +31,9 @@
# override status. the handler also sets a custom code message
my $code = 499; # not in HTTP/1.1
my $message = "FooBared";
- my $res = HEAD "$location?$code=$message";
+ my $res = GET "$location?$code=$message";
ok t_cmp $res->code, $code, "code";
- ok t_cmp $res->message, $message, "message";
+ ok t_cmp $res->message, $message, "code message";
ok t_cmp $res->content, "", "content";
}
