From 8ce518b9c07013b970a8edb9b2d057a870ae247b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 19 Sep 2001 11:35:55 +0000 Subject: [PATCH] The test assumed 7-bit ASCII. Now it "just" assumes 8-bit whatever. p4raw-id: //depot/perl@12083 --- t/op/crypt.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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"); } -- 2.7.4