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
|
#!/usr/bin/perl
use strict;
use warnings;
use B 'perlstring';
sub lines { [ "ab", "\n", "\r", "\r\n", "\n\r" ] }
BEGIN {
if ( defined $ENV{IPC_SUB_PROCESS} ) {
binmode STDIN, ":raw";
binmode STDERR, ":raw";
binmode STDOUT, ":raw";
print $ENV{IPC_SUB_PROCESS_REPORT_IN}
? perlstring do { local $/; <STDIN> }
: lines->[ $ENV{IPC_SUB_INDEX} ];
exit;
}
}
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More;
use IPC::Run 'run';
plan skip_all => 'Skipping when not on Win32' unless $^O eq 'MSWin32';
local $TODO = 'https://github.com/toddr/IPC-Run/issues/116';
plan tests => 10;
$ENV{IPC_SUB_PROCESS} = 1;
for my $i ( 0 .. $#{ lines() } ) {
my $line = lines->[$i];
$ENV{IPC_SUB_INDEX} = $i;
for my $report_in ( 1, 0 ) {
$ENV{IPC_SUB_PROCESS_REPORT_IN} = $report_in;
run [ $^X, __FILE__ ], "<", \$line, ">", \my $out;
$out = perlstring $out if not $report_in;
my $print_line = perlstring $line;
is $out, $print_line,
"$print_line - " . ( $report_in ? "child got clean input" : "parent received clean child output" );
}
}
|
