httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache etags.t
Date Thu, 10 Jan 2002 17:51:48 GMT
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";
  
  
  

Mime
View raw message