You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2004/08/07 04:17:53 UTC
cvs commit: httpd-test/perl-framework/t/apache options.t
stas 2004/08/06 19:17:53
Modified: perl-framework/t/apache options.t
Log:
fix test
Revision Changes Path
1.4 +3 -2 httpd-test/perl-framework/t/apache/options.t
Index: options.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/apache/options.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- options.t 4 Aug 2004 15:44:08 -0000 1.3
+++ options.t 7 Aug 2004 02:17:53 -0000 1.4
@@ -2,6 +2,7 @@
use warnings FATAL => 'all';
use Apache::Test;
+use Apache::TestUtil;
use Apache::TestRequest;
my @urls = qw(/);
@@ -10,7 +11,7 @@
for my $url (@urls) {
my $res = OPTIONS $url;
- ok $res->code == 200;
+ ok t_cmp 200, $res->code, "code";
my $allow = $res->header('Allow') || '';
- ok $allow =~ /OPTIONS/;
+ ok t_cmp $allow, qr/OPTIONS/, "OPTIONS";
}