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

2001-12-17 Thread dougm

dougm   01/12/17 16:21:02

  Modified:t/response/TestApache subprocess.pm
  Log:
  do not attempt to preload Apache::SubProcess
  
  Revision  ChangesPath
  1.2   +2 -2  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.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- subprocess.pm 2001/12/17 16:22:07 1.1
  +++ subprocess.pm 2001/12/18 00:21:02 1.2
  @@ -118,5 +118,5 @@
   
   
   1;
  -__DATA__
  -PerlModule Apache::SubProcess
  +
  +
  
  
  



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

2001-12-17 Thread dougm

dougm   01/12/17 16:23:03

  Modified:t/response/TestApache subprocess.pm
  Log:
  skip subprocess test unless Apache::SubProcess is available
  
  Revision  ChangesPath
  1.3   +2 -2  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.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- subprocess.pm 2001/12/18 00:21:02 1.2
  +++ subprocess.pm 2001/12/18 00:23:03 1.3
  @@ -9,7 +9,7 @@
   use Apache::TestUtil;
   use File::Spec::Functions qw(catfile catdir);
   
  -use Apache::SubProcess ();
  +eval { require Apache::SubProcess };
   
   my %scripts = (
argv   => 'print STDOUT "@ARGV";',
  @@ -38,7 +38,7 @@
   my $vars = $cfg->{vars};
   
   # XXX: these tests randomly fail under 5.6.1
  -plan $r, todo => [1..4], tests => 4;
  +plan $r, todo => [1..4], tests => 4, have_module 'Apache::SubProcess';
   
   my $target_dir = catfile $vars->{documentroot}, "util";
   
  
  
  



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

2001-12-17 Thread stas

stas01/12/17 21:54:59

  Modified:t/response/TestApache subprocess.pm
  Log:
  - force the scalar context on <$out> in ($value, <$out>, 'test') or <$out>
  can dissapear from the args list if it returns an empty list.
  
  Revision  ChangesPath
  1.4   +3 -3  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.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- subprocess.pm 2001/12/18 00:23:03 1.3
  +++ subprocess.pm 2001/12/18 05:54:59 1.4
  @@ -60,7 +60,7 @@
   $r->subprocess_env->set(SubProcess => $value);
   my $out = Apache::SubProcess::spawn_proc_prog($r, $command);
   ok t_cmp($value,
  - <$out>,
  + scalar(<$out>),
"passing env via subprocess_env"
   );
   }
  @@ -73,7 +73,7 @@
   Apache::SubProcess::spawn_proc_prog($r, $command);
   print $in $value;
   ok t_cmp($value,
  - <$out>,
  + scalar(<$out>),
"testing subproc's stdin -> stdout + list context"
   );
   }
  @@ -86,7 +86,7 @@
   Apache::SubProcess::spawn_proc_prog($r, $command);
   print $in $value;
   ok t_cmp($value,
  - <$err>,
  + scalar(<$err>),
"testing subproc's stdin -> stderr + list context"
   );
   }