cvs commit: modperl-2.0/t/response/TestApache subprocess.pm
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
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
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" ); }