randyk 2004/07/14 20:28:28
Modified: t/apr-ext table.t
t/lib/TestAPRlib table.pm
t/response/TestAPR table.pm
Log:
rename the sub within t/lib/TestAPRlib/table.pm returning the
number of tests run from 'number' to 'num_of_tests'.
Revision Changes Path
1.3 +1 -1 modperl-2.0/t/apr-ext/table.t
Index: table.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apr-ext/table.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- table.t 15 Jul 2004 01:32:26 -0000 1.2
+++ table.t 15 Jul 2004 03:28:28 -0000 1.3
@@ -4,6 +4,6 @@
use TestAPRlib::table;
-plan tests => TestAPRlib::table::number();
+plan tests => TestAPRlib::table::num_of_tests();
TestAPRlib::table::test();
1.2 +1 -1 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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- table.pm 15 Jul 2004 01:32:26 -0000 1.1
+++ table.pm 15 Jul 2004 03:28:28 -0000 1.2
@@ -273,7 +273,7 @@
return $filter_count == int(TABLE_SIZE)/2 ? 0 : 1;
}
-sub number {
+sub num_of_tests {
return 38;
}
1.17 +1 -1 modperl-2.0/t/response/TestAPR/table.pm
Index: table.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/table.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- table.pm 15 Jul 2004 01:32:26 -0000 1.16
+++ table.pm 15 Jul 2004 03:28:28 -0000 1.17
@@ -13,7 +13,7 @@
sub handler {
my $r = shift;
- my $tests = TestAPRlib::table::number();
+ my $tests = TestAPRlib::table::num_of_tests();
plan $r, tests => $tests;
TestAPRlib::table::test();
