Change 34101 by [EMAIL PROTECTED] 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 $^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');
End of Patch.
