perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/t closure.t perlrun_require.t special_blocks.t
Date Fri, 22 Aug 2003 05:22:55 GMT
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";
  
  
  

Mime
View raw message