httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/apache options.t
Date Sat, 07 Aug 2004 02:17:53 GMT
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";
   }
  
  
  

Mime
View raw message