process-substitution.t

#!perl

use strict;
use warnings;

use Test::More;

plan skip_all => q{Windows doesn't have named pipes} if $^O =~ /MSWin32/;
plan tests => 4;

use POSIX ();

my $pipename = POSIX::tmpnam();
POSIX::mkfifo $pipename, 0666;

my $pid = fork();
if ( $pid == 0 ) {
    open my $fifo, '>', $pipename or die "Couldn't create named pipe $pipename: $!";
    open my $f, '<', 'Changes' or die "Couldn't open Changes: $!";
    while (my $line = <$f>) {
        print {$fifo} $line;
    }
    close $fifo;
    close $f;
    exit 0;
}

my @output = qx{$^X -Mblib t/first-and-last-lines-via-process-pipe.pl $pipename};
is( $?, 0, 'No errors in executing our little named pipe tester' );
unlink $pipename;

chomp @output;
is( scalar @output, 2, 'Get exactly 2 lines back' );
is( $output[0], 'Revision history for File-Next' );
is( $output[-1], '    First version, released on an unsuspecting world.' );

done_testing();