dougm 02/01/10 09:51:48
Modified: perl-framework/t/apache etags.t
Log:
this test does not work with 2.0
Revision Changes Path
1.2 +2 -16 httpd-test/perl-framework/t/apache/etags.t
Index: etags.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/apache/etags.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- etags.t 5 Jan 2002 17:20:33 -0000 1.1
+++ etags.t 10 Jan 2002 17:51:48 -0000 1.2
@@ -8,20 +8,6 @@
use Apache::TestRequest;
use Apache::TestUtil;
-t_debug "Checking for existence of FileETag directive\n";
-my $resp = GET('/etags/test.txt');
-my $rc = $resp->code;
-t_debug "Returned $rc:";
-if ($rc == 500) {
- t_debug "Feature not supported, skipping..",
- " Message was:", $resp->as_string;
- if (defined($resp->content)) {
- t_debug $resp->content;
- }
- plan tests => 1..0;
- exit;
-}
-
#
# The tests verify the inclusion of the different fields, and
# inheritance, according to the directories involved. All are
@@ -136,14 +122,14 @@
);
my $testcount = scalar(keys(%tests));
-plan tests => $testcount;
+plan tests => $testcount, sub { have_apache(1) };
for my $key (keys(%tests)) {
my $uri = "/etags" . $key . "test.txt";
my $pattern = $tests{$key};
t_debug "---", "HEAD $uri",
"Expecting " . $expect{$pattern};
- $resp = HEAD($uri);
+ my $resp = HEAD($uri);
my $etag = $resp->header("ETag");
if (defined($etag)) {
t_debug "Received $etag";
