This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
miniperl/minitest cannot do these tests.
[perl5.git] / t / op / stat_errors.t
index e043c61..3943332 100644 (file)
@@ -4,13 +4,14 @@ BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
+    skip_all_if_miniperl("miniperl can't load PerlIO::scalar");
 }
 
 plan(tests => 2*11*29);
 
 use Errno qw(EBADF ENOENT);
 
-open(SCALARFILE, "<", \"wibble") or die $!;
+open(SCALARFILE, "<", \"wibble") or die $!; # needs PerlIO::scalar
 open(CLOSEDFILE, "<", "./test.pl") or die $!;
 close(CLOSEDFILE) or die $!;
 opendir(CLOSEDDIR, "../lib") or die $!;