#!/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);