cvs commit: modperl-2.0/t/response/TestApache subprocess.pm

[stas]

stas        02/04/06 09:48:12

  Modified:    t/response/TestApache subprocess.pm
  Log:
  mark the sub-tests as todo only for perl < 5.7.3
  
  Revision  Changes    Path
  1.5       +3 -1      modperl-2.0/t/response/TestApache/subprocess.pm
  
  Index: subprocess.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/subprocess.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- subprocess.pm     18 Dec 2001 05:54:59 -0000      1.4
  +++ subprocess.pm     6 Apr 2002 17:48:12 -0000       1.5
  @@ -38,7 +38,9 @@
       my $vars = $cfg->{vars};
   
       # XXX: these tests randomly fail under 5.6.1
  -    plan $r, todo => [1..4], tests => 4, have_module 'Apache::SubProcess';
  +    my @todo = $] < 5.007003 ? (todo => [1..4]) : ();
  +
  +    plan $r, @todo, tests => 4, have_module 'Apache::SubProcess';
   
       my $target_dir = catfile $vars->{documentroot}, "util";