[Guile-commits] 03/04: don't test crypt if not present

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit d6afb41192e43e4da9d4fde57a0934c753cbe279
Author: Mike Gran <spk121@yahoo.com>
AuthorDate: Sat Jan 23 12:10:22 2021 -0800

    don't test crypt if not present
    
    * test-suite/tests/posix.test (crypt):  throw unsupported if crypt not 
presetnt
---
 test-suite/tests/posix.test | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index aa0dbc1..135f09c 100644
--- 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