From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 19 Sep 2001 11:35:55 +0000 (+0000)
Subject: The test assumed 7-bit ASCII.  Now it "just"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ce518b9c07013b970a8edb9b2d057a870ae247b;p=p5sagit%2Fp5-mst-13.2.git

The test assumed 7-bit ASCII.  Now it "just"
assumes 8-bit whatever.

p4raw-id: //depot/perl@12083
---

diff --git a/t/op/crypt.t b/t/op/crypt.t
index 457be52..8326a09 100644
--- a/t/op/crypt.t
+++ b/t/op/crypt.t
@@ -31,7 +31,7 @@ BEGIN {
 SKIP: {
     skip "crypt unimplemented", 2, unless $Config{d_crypt};
     
-    ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt");
+    ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt makes a difference");
 
-    ok(crypt("HI", "HO") eq crypt(v4040.4041, "HO"), "Unicode");
+    ok(crypt("HI", "HO") eq crypt(join("",map{chr($_+256)}unpack"C*","HI"), "HO"), "low eight bits of Unicode");
 }