This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
miniperl/minitest cannot do these tests.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 24 Nov 2017 06:00:20 +0000 (08:00 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 24 Nov 2017 06:00:20 +0000 (08:00 +0200)
t/op/stat_errors.t
t/op/state.t

index e043c61..3943332 100644 (file)
@@ -4,13 +4,14 @@ BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
     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);
 
 }
 
 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 $!;
 open(CLOSEDFILE, "<", "./test.pl") or die $!;
 close(CLOSEDFILE) or die $!;
 opendir(CLOSEDDIR, "../lib") or die $!;
index 01bc007..4fe67e1 100644 (file)
@@ -5,6 +5,7 @@ BEGIN {
     chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
     chdir 't' if -d 't';
     require './test.pl';
     set_up_inc('../lib');
+    skip_all_if_miniperl("miniperl can't load attributes");
 }
 
 use strict;
 }
 
 use strict;