Fix crypt.t and fs.t tests

Message-Id: <200201161143.GAA02292@mailhub1.stratus.com>

p4raw-id: //depot/perl@14304

diff --git a/t/io/fs.t b/t/io/fs.t
index 7331cd4..3eb3e0a 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -239,7 +239,7 @@ close(IOFSCOM);
 SKIP: {
     eval { truncate "Iofs.tmp", 5; };
 
-    skip("no truncate - $@", 4) if $@;
+    skip("no truncate - $@", 6) if $@;
 
     is(-s "Iofs.tmp", 5, "truncation to five bytes");
 

diff --git a/t/op/crypt.t b/t/op/crypt.t
index d11a2a0..27c878f 100644 (file)
--- a/t/op/crypt.t
+++ b/t/op/crypt.t
@@ -28,7 +28,10 @@ BEGIN {
 # bets, given alternative encryption/hashing schemes like MD5,
 # C2 (or higher) security schemes, and non-UNIX platforms.
 
-ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt makes a difference");
+SKIP: {
+       skip ("VOS crypt ignores salt.", 1) if ($^O eq 'vos');
+       ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt makes a difference");
+}
 
 $a = "a\xFF\x{100}";