view release on metacpan or  search on metacpan

t/01-file.t  view on Meta::CPAN

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 3;

use FindBin;

my $PIPE;
if ('MSWin32' eq $^O && $] < 5.022) {
    open $PIPE, '-|', "$^X $FindBin::Bin/script.pl $FindBin::Bin/input.txt"
        or die $!;
} else {
    open $PIPE, '-|', $^X, "$FindBin::Bin/script.pl",
                           "$FindBin::Bin/input.txt"
        or die $!;
}

while (<$PIPE>) {
    is $_, "file $.\n", "Read line $. from file";
}
ok eof $PIPE, 'end of file';