#!./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();
'Explicit exit of 1' );
$rc = system { "lskdfj" } "lskdfj";
-$rc = 256 if ($rc == 5632) && $Is_VMS;
unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
print "# \$rc == $rc\n";
}
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();