Skip bug in new File::stat test.
authorCraig A. Berry <craigberry@mac.com>
Thu, 2 Apr 2009 17:30:54 +0000 (12:30 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 2 Apr 2009 17:30:54 +0000 (12:30 -0500)
-- index returns -1, not false when substring not found.

-- 2 tests in the block, not 1.

lib/File/stat.t

index b1c4b9f..b53c9e9 100644 (file)
@@ -58,8 +58,8 @@ is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
 for (split //, "rwxoRWXOezsfdlpSbcugkMCA") {
     SKIP: {
-        $^O eq "VMS" and index "rwxRWX", $_
-            and skip "File::stat ignores VMS ACLs", 1;
+        $^O eq "VMS" and index("rwxRWX", $_) >= 0
+            and skip "File::stat ignores VMS ACLs", 2;
 
         my $rv = eval "-$_ \$stat";
         ok( !$@,                            "-$_ overload succeeds" )