This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Part Integrate mainline
[perl5.git] / t / op / crypt.t
index 2619338..26eb06a 100644 (file)
@@ -1,5 +1,4 @@
 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)
@@ -11,10 +10,6 @@ use Config;
 # bets, given alternative encryption/hashing schemes like MD5,
 # C2 (or higher) security schemes, and non-UNIX platforms.
 
-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");
 
-    ok(crypt("HI", "HO") eq crypt(v4040.4041, "HO"), "Unicode");
-}
+ok(crypt("HI", "HO") eq crypt(v4040.4041, "HO"), "Unicode");