Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 15 Oct 2001 23:15:14 -0000
Message-ID: <20011015231514.33839.qmail@icarus.apache.org>
From: dougm@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/t/ssl varlookup.t

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