#!./perl
-BEGIN: {
+BEGIN {
chdir 't' if -d 't';
@INC = ('../lib');
require './test.pl';
skip_all("Tests mostly usesless on MacOS") if $^O eq 'MacOS';
-plan(tests => 21);
+plan(tests => 22);
my $Perl = which_perl();
unless ( ok( $! == 2 or $! =~ /\bno\b.*\bfile/i or
$! == 13 or $! =~ /permission denied/i or
- $! == 22 or $! =~ /invalid argument/ ) ) {
+ $! == 22 or $! =~ /invalid argument/i ) ) {
printf "# \$! eq %d, '%s'\n", $!, $!;
}
$Perl -le "print 'ok'"
END
+{
+ my $_ = qq($Perl -le "print 'ok'");
+ is( readpipe, "ok\n", 'readpipe default argument' );
+}
TODO: {
my $tnum = curr_test();