perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@apache.org
Subject cvs commit: modperl-2.0/Apache-Test/lib/Apache Test.pm
Date Fri, 22 Jun 2001 04:06:03 GMT
sbekman     01/06/21 21:06:03

  Modified:    Apache-Test/lib/Apache Test.pm
  Log:
  correct the doc
  
  Revision  Changes    Path
  1.7       +6 -8      modperl-2.0/Apache-Test/lib/Apache/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/Test.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- Test.pm	2001/06/22 03:57:18	1.6
  +++ Test.pm	2001/06/22 04:06:00	1.7
  @@ -97,16 +97,14 @@
   
       # if condition() returns false, the tests are skipped. 
       # e.g.: skip tests if lwp is not available
  -    plan tests => 3, \&have_lwp;
  +    plan tests => 4, \&have_lwp;
   
  -    # if the test passed print 'ok 1' as Test.pm expects
  -    ok 1 if 'mod_perl rules';
  -    ok 2 if 42;
  +    # ok is exported from Test.pm (see Test.pm manpage)
  +    ok 'mod_perl rules'; # test 1 passed (the string is true)
  +    ok 42;               # test 2 passed (42 is always true)
       my @a = qw(a b);
  -    ok 3 if ++$a[0] eq $a[1];
  -
  -    # if a particular test fails, don't print anything and just move
  -    # on to a next test
  +    ok $a[0] eq $a[1];   # test 3 failed ('a' ne 'b')
  +    ok ++$a[0] eq $a[1]; # test 4 passed ('b' eq 'b')
   
   =cut
   
  
  
  

Mime
View raw message