stas 2003/08/21 22:22:55
Modified: ModPerl-Registry/t closure.t perlrun_require.t
special_blocks.t
Log:
better spelling, thanks geoff
Revision Changes Path
1.10 +7 -7 modperl-2.0/ModPerl-Registry/t/closure.t
Index: closure.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/closure.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- closure.t 22 Aug 2003 00:41:32 -0000 1.9
+++ closure.t 22 Aug 2003 05:22:55 -0000 1.10
@@ -37,7 +37,7 @@
# should be no closure effect, always returns 1
my $first = get_body($same_interp, $url);
my $second = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second) != 2),
0,
$first && $second && ($second - $first),
@@ -49,7 +49,7 @@
# it doesn't matter, since the script is not cached anyway
my $third = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second, $third) != 3),
1,
$third,
@@ -69,7 +69,7 @@
# the difference should be 1.
my $first = get_body($same_interp, $url);
my $second = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second) != 2),
1,
$first && $second && ($second - $first),
@@ -81,7 +81,7 @@
# should not notice closure effect on the first request
my $third = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second, $third) != 3),
1,
$third,
@@ -101,7 +101,7 @@
# the difference should be 1.
my $first = get_body($same_interp, $url);
my $second = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second) != 2),
1,
$first && $second && ($second - $first),
@@ -113,7 +113,7 @@
# modification shouldn't be noticed
my $third = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
(scalar(grep defined, $first, $second, $third) != 3),
1,
$first && $second && $third - $second,
@@ -149,7 +149,7 @@
# interpreter, which happens randomly and not an error.
# the first argument is used to decide whether to skip the sub-test,
# the rest of the arguments are passed to 'ok t_cmp';
-sub skip_not_same_intrep {
+sub skip_not_same_interp {
my $skip_cond = shift;
if ($skip_cond) {
skip "Skip couldn't find the same interpreter";
1.3 +2 -2 modperl-2.0/ModPerl-Registry/t/perlrun_require.t
Index: perlrun_require.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/perlrun_require.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- perlrun_require.t 22 Aug 2003 00:41:32 -0000 1.2
+++ perlrun_require.t 22 Aug 2003 05:22:55 -0000 1.3
@@ -15,7 +15,7 @@
for (1..2) {
# should not fail on the second request
my $res = get_body($same_interp, $url);
- skip_not_same_intrep(
+ skip_not_same_interp(
!defined($res),
"1",
$res,
@@ -39,7 +39,7 @@
# interpreter, which happens randomly and not an error.
# the first argument is used to decide whether to skip the sub-test,
# the rest of the arguments are passed to 'ok t_cmp';
-sub skip_not_same_intrep {
+sub skip_not_same_interp {
my $skip_cond = shift;
if ($skip_cond) {
skip "Skip couldn't find the same interpreter";
1.7 +9 -9 modperl-2.0/ModPerl-Registry/t/special_blocks.t
Index: special_blocks.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/special_blocks.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- special_blocks.t 22 Aug 2003 00:41:32 -0000 1.6
+++ special_blocks.t 22 Aug 2003 05:22:55 -0000 1.7
@@ -30,7 +30,7 @@
my $res = get_body($same_interp, "$url?begin");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"begin ok",
$res,
@@ -39,7 +39,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?begin");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"begin ok",
$res,
@@ -48,7 +48,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?end");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"end ok",
$res,
@@ -57,7 +57,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?end");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"end ok",
$res,
@@ -84,7 +84,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?begin");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"begin ok",
$res,
@@ -94,7 +94,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?begin");
$skip++ unless defined $res;
t_debug($res);
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"",
$res,
@@ -110,7 +110,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?end");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"end ok",
$res,
@@ -119,7 +119,7 @@
$res = $skip ? undef : get_body($same_interp, "$url?end");
$skip++ unless defined $res;
- skip_not_same_intrep(
+ skip_not_same_interp(
$skip,
"end ok",
$res,
@@ -143,7 +143,7 @@
# interpreter, which happens randomly and not an error.
# the first argument is used to decide whether to skip the sub-test,
# the rest of the arguments are passed to 'ok t_cmp';
-sub skip_not_same_intrep {
+sub skip_not_same_interp {
my $skip_cond = shift;
if ($skip_cond) {
skip "Skip couldn't find the same interpreter";
