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/ssl varlookup.t
Date Mon, 15 Oct 2001 23:15:14 GMT
dougm       01/10/15 16:15:14

  Modified:    perl-framework/t/ssl varlookup.t
  Log:
  make it possible to run individual tests
  
  Revision  Changes    Path
  1.2       +2 -2      httpd-test/perl-framework/t/ssl/varlookup.t
  
  Index: varlookup.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/varlookup.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- varlookup.t	2001/08/23 03:33:14	1.1
  +++ varlookup.t	2001/10/15 23:15:14	1.2
  @@ -23,11 +23,11 @@
   plan tests => scalar keys %lookup;
   
   for my $key (sort keys %lookup) {
  -    verify($key);
  +    sok { verify($key); };
   }
   
   sub verify {
       my $key = shift;
       my $str = GET_BODY("$url?$key", cert => 'client_ok');
  -    ok $str eq $lookup{$key};
  +    $str eq $lookup{$key};
   }
  
  
  

Mime
View raw message