[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 <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