Skip chown() tests added by #34092 on Win32
Steve Hay [Thu, 3 Jul 2008 15:24:43 +0000 (15:24 +0000)]
p4raw-id: //depot/perl@34101

t/io/pvbm.t

index 6c97edf..19f9733 100644 (file)
@@ -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');