#!./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();
$Perl -le "print 'ok'"
END
+{
+ my $_ = qq($Perl -le "print 'ok'");
+ is( readpipe, "ok\n", 'readpipe default argument' );
+}
TODO: {
my $tnum = curr_test();