From: Steve Hay 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');