mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

don't test crypt if not present

Browse source 
* test-suite/tests/posix.test (crypt):  throw unsupported if crypt not presetnt
This commit is contained in:
Mike Gran 2021-01-23 12:10:22 -08:00
parent cdcdd29e8e
commit d6afb41192
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/posix.test
View file

@ -260,10 +260,14 @@
(with-test-prefix "crypt" (with-test-prefix "crypt"
(pass-if "basic usage" (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" (pass-if "crypt invalid salt on glibc"
(begin (begin
(unless (defined? 'crypt)
(throw 'unsupported))
(unless (string-contains %host-type "-gnu") (unless (string-contains %host-type "-gnu")
(throw 'unresolved)) (throw 'unresolved))
(catch 'system-error (catch 'system-error