don't test crypt if not present

* test-suite/tests/posix.test (crypt):  throw unsupported if crypt not presetnt

diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index aa0dbc1b27f32bf902c55a330790d0b1f66f1e0a..135f09c11efc8357b959004f4b365cb29ea08beb 100644 (file)
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -260,10 +260,14 @@
 (with-test-prefix "crypt"
 
   (pass-if "basic usage"
-    (string? (crypt "pass" "abcdefg")))
+    (if (not (defined? 'crypt))
+        (throw 'unsupported)
+        (string? (crypt "pass" "abcdefg"))))
 
   (pass-if "crypt invalid salt on glibc"
     (begin
+      (unless (defined? 'crypt)
+        (throw 'unsupported))
       (unless (string-contains %host-type "-gnu")
         (throw 'unresolved))
       (catch 'system-error