From: Paul Green <Paul.Green@stratus.com>
Date: Wed, 16 Jan 2002 06:42:00 +0000 (-0500)
Subject: Fix crypt.t and fs.t tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dcd1d1bf48d55e55c493414d8a36c4c436f10504;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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}";