stas        2004/07/14 22:42:04

  Modified:    t/lib/TestAPRlib table.pm
  Log:
  move num_of_tests to the top, so it's easier to maintain it
  
  Revision  Changes    Path
  1.4       +4 -4      modperl-2.0/t/lib/TestAPRlib/table.pm
  
  Index: table.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestAPRlib/table.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- table.pm  15 Jul 2004 03:34:39 -0000      1.3
  +++ table.pm  15 Jul 2004 05:42:04 -0000      1.4
  @@ -16,6 +16,10 @@
   use constant TABLE_SIZE => 20;
   our $filter_count;
   
  +sub num_of_tests {
  +    return 38;
  +}
  +
   sub test {
   
       $filter_count = 0;
  @@ -272,10 +276,6 @@
           die "arguments I received are bogus($key,$value)";
       }
       return $filter_count == int(TABLE_SIZE)/2 ? 0 : 1;
  -}
  -
  -sub num_of_tests {
  -    return 38;
   }
   
   1;
  
  
  

Reply via email to