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;