Change 14360: [PATCH] lib/ExtUtils/t/Command.t -- VOS Fixes

[Jarkko Hietaniemi]

Change 14360 by jhi@alpha on 2002/01/20 17:11:12

        Subject: [PATCH] lib/ExtUtils/t/Command.t -- VOS Fixes
        From: [EMAIL PROTECTED]
        Date: Sat, 19 Jan 02 17:17 est
        Message-Id: <[EMAIL PROTECTED]>
        
        Subject: [PATCH] lib/ExtUtils/t/Command.t -- add more tests
        From: [EMAIL PROTECTED]
        Date: Sat, 19 Jan 02 17:19 est
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/ExtUtils/t/Command.t#4 edit

Differences ...

==== //depot/perl/lib/ExtUtils/t/Command.t#4 (text) ====
Index: perl/lib/ExtUtils/t/Command.t
--- perl/lib/ExtUtils/t/Command.t.~1~   Sun Jan 20 10:15:06 2002
+++ perl/lib/ExtUtils/t/Command.t       Sun Jan 20 10:15:06 2002
@@ -19,7 +19,7 @@
 }
 
 BEGIN {
-       use Test::More tests => 21;
+       use Test::More tests => 24;
        use File::Spec;
 }
 
@@ -100,11 +100,40 @@
        ok( abs($now - $stamp) <= 1, 'checking modify time stamp' ) ||
       print "# mtime == $stamp, should be $now\n";
 
+SKIP: {
+       if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' ||
+           $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin') {
+           skip( "different file permission semantics on $^O\n", 3);
+       }
+
+       # change a file to execute-only
+       @ARGV = ( 0100, 'ecmdfile' );
+       ExtUtils::Command::chmod();
+
+       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+           0100, 'change a file to execute-only' );
+
        # change a file to read-only
+       @ARGV = ( 0400, 'ecmdfile' );
+       ExtUtils::Command::chmod();
+
+       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+           ($^O eq 'vos' ? 0500 : 0400), 'change a file to read-only' );
+
+       # change a file to write-only
+       @ARGV = ( 0200, 'ecmdfile' );
+       ExtUtils::Command::chmod();
+
+       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+           ($^O eq 'vos' ? 0700 : 0200), 'change a file to write-only' );
+     }
+
+       # change a file to read-write
        @ARGV = ( 0600, 'ecmdfile' );
        ExtUtils::Command::chmod();
 
-       is( ((stat('ecmdfile'))[2] & 07777) & 0700, 0600, 'change a file to read-only' 
);
+       is( ((stat('ecmdfile'))[2] & 07777) & 0700,
+           ($^O eq 'vos' ? 0700 : 0600), 'change a file to read-write' );
 
        # mkpath
        @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
End of Patch.