From ab14db95b0de89c4e67326bde2652b72e8b65f0d Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 3 Jul 2008 15:24:43 +0000 Subject: [PATCH] Skip chown() tests added by #34092 on Win32 p4raw-id: //depot/perl@34101 --- t/io/pvbm.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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'); -- 2.7.4