Change 14304: [PATCH] Fix crypt.t and fs.t tests

[Jarkko Hietaniemi]

Change 14304 by jhi@alpha on 2002/01/16 16:55:52

        Subject: [PATCH] Fix crypt.t and fs.t tests
        From: [EMAIL PROTECTED]
        Date: Wed, 16 Jan 02 6:42 est
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/t/io/fs.t#39 edit
.... //depot/perl/t/op/crypt.t#7 edit

Differences ...

==== //depot/perl/t/io/fs.t#39 (xtext) ====
Index: perl/t/io/fs.t
--- perl/t/io/fs.t.~1~  Wed Jan 16 10:00:05 2002
+++ perl/t/io/fs.t      Wed Jan 16 10:00:05 2002
@@ -239,7 +239,7 @@
 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");
 

==== //depot/perl/t/op/crypt.t#7 (text) ====
Index: perl/t/op/crypt.t
--- perl/t/op/crypt.t.~1~       Wed Jan 16 10:00:05 2002
+++ perl/t/op/crypt.t   Wed Jan 16 10:00:05 2002
@@ -28,7 +28,10 @@
 # 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}";
 
End of Patch.