[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Mike Gran
Subject: [Guile-commits] 03/04: don't test crypt if not present
Date: Sat, 23 Jan 2021 16:00:36 -0500 (EST)

mike121 pushed a commit to branch master
in repository guile.

commit d6afb41192e43e4da9d4fde57a0934c753cbe279
Author: Mike Gran <>
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 
 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"
+      (unless (defined? 'crypt)
+        (throw 'unsupported))
       (unless (string-contains %host-type "-gnu")
         (throw 'unresolved))
       (catch 'system-error

reply via email to

[Prev in Thread] Current Thread [Next in Thread]