diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/crypt.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/crypt.t b/t/op/crypt.t index 26eb06a580..2619338b25 100644 --- a/t/op/crypt.t +++ b/t/op/crypt.t @@ -1,4 +1,5 @@ use Test::More tests => 2; +use Config; # Can't assume too much about the string returned by crypt(), # and about how many bytes of the encrypted (really, hashed) @@ -10,6 +11,10 @@ use Test::More tests => 2; # 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"); +SKIP: { + skip "crypt unimplemented", 2, unless $Config{d_crypt}; + + ok(substr(crypt("ab", "cd"), 2) ne substr(crypt("ab", "ce"), 2), "salt"); -ok(crypt("HI", "HO") eq crypt(v4040.4041, "HO"), "Unicode"); + ok(crypt("HI", "HO") eq crypt(v4040.4041, "HO"), "Unicode"); +} |