Change 12083 by jhi@alpha on 2001/09/19 11:35:55
The test assumed 7-bit ASCII. Now it "just"
assumes 8-bit whatever.
Affected files ...
... //depot/perl/t/op/crypt.t#4 edit
Differences ...
==== //depot/perl/t/op/crypt.t#4 (text) ====
Index: perl/t/op/crypt.t
--- perl/t/op/crypt.t.~1~ Wed Sep 19 05:45:06 2001
+++ perl/t/op/crypt.t Wed Sep 19 05:45:06 2001
@@ -31,7 +31,7 @@
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");
}
End of Patch.
