#!/usr/bin/perl
=pod
=head1 NAME
parallel.t - Test suite for running multiple processes in parallel.
=cut
use strict;
BEGIN {
$| = 1;
$^W = 1;
if ( $ENV{PERL_CORE} ) {
chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
unshift @INC, 'lib', '../..';
$^X = '../../../t/' . $^X;
}
}
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
select STDERR;
select STDOUT;
BEGIN {
use Test::More;
if ( $^O eq 'MSWin32' ) {
plan skip_all => 'Parallel tests are dangerous on MSWin32';
}
else {
plan tests => 6;
}
}
use IPC::Run qw( start pump finish );
my $text1 = "Hello world 1\n";
my $text2 = "Hello world 2\n";
my @perl = ($^X);
my @catter = ( @perl, '-pe1' );
my ( $h1, $h2 );
my ( $out1, $out2 );
$h1 = start \@catter, "<", \$text1, ">", \$out1;
ok($h1);
$h2 = start \@catter, "<", \$text2, ">", \$out2;
ok($h2);
pump $h1;
ok(1);
pump $h2;
ok(1);
finish $h1;
ok(1);
finish $h2;
ok(1);