This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get t/io/fs.t working under miniperl
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Sep 2014 07:06:33 +0000 (00:06 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:16 +0000 (20:11 -0700)
If things are broken enough that make_ext.pl cannot run, then mini-
test may run this script before Errno.pm is generated and copied
into lib/.

t/io/fs.t

index 0d3f435..628a2ca 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -469,7 +469,10 @@ ok(-d $tmpdir1, "rename on directories working");
 
 # Calling unlink on a directory without -U and privileges will always fail, but
 # it should set errno to EISDIR even though unlink(2) is never called.
-{
+SKIP: {
+    if (is_miniperl && !eval 'require Errno') {
+        skip "Errno not built yet", 3;
+    }
     require Errno;
 
     my $tmpdir = tempfile();