From d6afb41192e43e4da9d4fde57a0934c753cbe279 Mon Sep 17 00:00:00 2001 From: Mike Gran Date: Sat, 23 Jan 2021 12:10:22 -0800 Subject: [PATCH] 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 aa0dbc1b2..135f09c11 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