This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] t/op/crypt.t
[perl5.git] / t / op / crypt.t
index 26eb06a..457be52 100644 (file)
@@ -1,4 +1,22 @@
-use Test::More tests => 2;
+#!./perl -Tw
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = ('../lib');
+}
+
+use Config;
+
+BEGIN {
+    require Test::More;
+
+    if( !$Config{d_crypt} ) {
+        Test::More->import('skip_all');
+    }
+    else {
+        Test::More->import(tests => 2);
+    }
+}
 
 # Can't assume too much about the string returned by crypt(),
 # and about how many bytes of the encrypted (really, hashed)
@@ -10,6 +28,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");
+}