This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Manifest.t do what is says it's doing.
authorCraig A. Berry <craigberry@mac.com>
Sat, 21 Jan 2006 17:05:07 +0000 (17:05 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sat, 21 Jan 2006 17:05:07 +0000 (17:05 +0000)
p4raw-id: //depot/perl@26919

lib/ExtUtils/t/Manifest.t

index bba6843..47e555b 100644 (file)
@@ -150,8 +150,16 @@ is_deeply( [sort map { lc } @copies], [sort map { lc } keys %$files] );
 foreach my $orig (@copies) {
     my $copy = "copy/$orig";
     ok( -r $copy,               "$copy: must be readable" );
-    is( -w $copy, -w $orig,     "       writable if original was" );
-    is( -x $copy, -x $orig,     "       executable if original was" );
+
+  SKIP: {
+    skip "       original was not writable", 1 unless -w $orig;
+    ok(-w $copy, "       writable if original was" );
+  }
+
+  SKIP: {
+    skip "       original was not executable", 1 unless -x $orig;
+    ok(-x $copy, "       executable if original was" );
+  }
 }
 rmtree('copy');