Change 34101: Skip chown() tests added by #34092 on Win32

Change 34101 by steveh@maldoror on 2008/07/03 15:24:43

Skip chown() tests added by #34092 on Win32

Affected files

//depot/perl/t/io/pvbm.t#2 edit

Differences

//depot/perl/t/io/pvbm.t#2 (text)
Index: perl/t/io/pvbm.t
perl/t/io/pvbm.t#1~34092~ 2008-06-28 14:06:57.000000000 -0700
perl/t/io/pvbm.t 2008-07-03 08:24:43.000000000 -0700
@@ -66,8 +66,11 @@
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 $^ 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');
End of Patch.