cvs commit: httpd-test/perl-framework/t/ssl varlookup.t

[dougm]

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};
   }