Skip stat.t readability test on VMS.
authorCraig A. Berry <craigberry@mac.com>
Wed, 15 Feb 2012 01:29:07 +0000 (19:29 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 15 Feb 2012 01:29:07 +0000 (19:29 -0600)
This new test grants full access on a test file to group and other.
Since I'm a member of my own group and everyone is someone, I of
course have full access to the file, but the test expects it to be
unreadable.  If there is a hierarchy in Unix file permissions, it
clearly doesn't work the same way as the VMS one.

t/op/stat.t

index ee6ea47..af1fa5e 100644 (file)
@@ -525,6 +525,7 @@ SKIP: {
     SKIP: {
        skip "No lstat", 1 unless $Config{d_lstat};
        skip "uid=0", 1 unless $<&&$>;
+       skip "Readable by group/other means readable by me", 1 if $^O eq 'VMS';
        lstat($tmpfile);
        -T _;
        ok(eval { lstat _ },