Win32 not happy with new test
Abe Timmerman [Thu, 28 Feb 2002 00:04:06 +0000 (01:04 +0100)]
Message-ID: <fhnq7u8ref3nqgsa0p4f9u1v5r3sv3akm1@4ax.com>

p4raw-id: //depot/perl@14905

lib/File/stat.t

index 0c2f22d..3c867de 100644 (file)
@@ -58,7 +58,7 @@ is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
 SKIP: {
        local *STAT;
-       skip(2, "Could not open file: $!") unless open(STAT, 'TEST');
+       skip("Could not open file: $!", 2) unless open(STAT, 'TEST');
        ok( File::stat::stat('STAT'), '... should be able to find filehandle' );
 
        package foo;
@@ -67,6 +67,8 @@ SKIP: {
                '... and filehandle in another package' );
        close STAT;
 
+       main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32';
+
        main::is( "@$stat", "@$stat2", '... and must match normal stat' );
 }