From: Jesse Vincent <jesse@bestpractical.com>
Date: Wed, 16 Dec 2009 02:08:40 +0000 (-0500)
Subject: Update File::Copy tests to skip on OpenBSD, as it mounts too many filesystems nosuid.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d48bc6db099a4f84cb04d1ada69930fb35f8da1;p=p5sagit%2Fp5-mst-13.2.git

Update File::Copy tests to skip on OpenBSD, as it mounts too many filesystems nosuid.

[perl #71334] is the TODO for a better fix for this
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index abff488..2644bce 100644
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -239,6 +239,9 @@ SKIP: {
 
     my $skips = @tests * 6 * 8;
 
+    # TODO - make this skip fire if we're on a nosuid filesystem rather than guessing by OS
+    skip "OpenBSD filesystems default to nosuid breaking these tests", $skips
+          if $^O eq 'openbsd';
     skip "-- Copy preserves RMS defaults, not POSIX permissions.", $skips
           if $^O eq 'VMS';
     skip "Copy doesn't set file permissions correctly on Win32.",  $skips