1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 12;
use Config;
use constant NO_SUCH_CMD => "this_command_had_better_not_exist";
# We want to invoke our sub-commands using Perl.
my $perl_path = $Config{perlpath};
if ($^O ne 'VMS') {
$perl_path .= $Config{_exe}
unless $perl_path =~ m/$Config{_exe}$/i;
}
# Win32 systems don't support multi-arg pipes. Our
# simple captures will begin with single-arg tests.
my $output_exe = "$perl_path output.pl";
use_ok("IPC::System::Simple","capture");
chdir("t");
# Scalar capture
my $output = capture($output_exe);
ok(1);
is($output,"Hello\nGoodbye\n","Scalar capture");
is($/,"\n","IFS intact");
my $qx_output = qx($output_exe);
is($output, $qx_output, "capture and qx() return same results");
# List capture
my @output = capture($output_exe);
ok(1);
is_deeply(\@output,["Hello\n", "Goodbye\n"],"List capture");
is($/,"\n","IFS intact");
my $no_output;
eval {
$no_output = capture(NO_SUCH_CMD);
};
like($@,qr/failed to start/, "failed capture");
is($no_output,undef, "No output from failed command");
# The following is to try and catch weird buffering issues
# as we move around filehandles inside capture().
print "# buffer test string"; # NB, no trailing newline
$output = capture($output_exe);
print "\n"; # Terminates our test string above in TAP output
like($output,qr{Hello},"Single-arg capture still works");
unlike($output,qr{buffer test},"No unflushed data readback");
|
