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