From: Steve Hay <SteveHay@planit.com>
Date: Thu, 3 Jul 2008 15:24:43 +0000 (+0000)
Subject: Skip chown() tests added by #34092 on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab14db95b0de89c4e67326bde2652b72e8b65f0d;p=p5sagit%2Fp5-mst-13.2.git

Skip chown() tests added by #34092 on Win32

p4raw-id: //depot/perl@34101
---

diff --git a/t/io/pvbm.t b/t/io/pvbm.t
index 6c97edf..19f9733 100644
--- a/t/io/pvbm.t
+++ b/t/io/pvbm.t
@@ -66,8 +66,11 @@ sub PVBM () { 'foo' }
     ok (!eval { chmod 0600, $pvbm }, 'chmod(PVBM) fails');
     ok (!eval { chmod 0600, \$pvbm }, 'chmod(PVBM ref) fails');
 
-    ok (!eval { chown 0, 0, $pvbm }, 'chown(PVBM) fails');
-    ok (!eval { chown 0, 0, \$pvbm }, 'chown(PVBM ref) fails');
+    SKIP: {
+        skip('chown() not implemented on Win32', 2) if $^O eq 'MSWin32';
+        ok (!eval { chown 0, 0, $pvbm }, 'chown(PVBM) fails');
+        ok (!eval { chown 0, 0, \$pvbm }, 'chown(PVBM ref) fails');
+    }
 
     ok (!eval { utime 0, 0, $pvbm }, 'utime(PVBM) fails');
     ok (!eval { utime 0, 0, \$pvbm }, 'utime(PVBM ref) fails');