diff options
| author | Mike Gran <spk121@yahoo.com> | 2021-01-23 12:10:22 -0800 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2021-01-23 12:10:22 -0800 |
| commit | d6afb41192e43e4da9d4fde57a0934c753cbe279 (patch) | |
| tree | 15dfd347208ca84b78163ef4a476200b15dff834 | |
| parent | cdcdd29e8e19af93864980337ec596c6e7bd43a9 (diff) | |
| download | guile-d6afb41192e43e4da9d4fde57a0934c753cbe279.tar.gz | |
don't test crypt if not present
* test-suite/tests/posix.test (crypt): throw unsupported if crypt not presetnt
| -rw-r--r-- | test-suite/tests/posix.test | 6 |
1 files changed, 5 insertions, 1 deletions
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 |