17 lines
737 B
Diff
17 lines
737 B
Diff
|
--- guile-2.2.4/test-suite/tests/posix.test.orig 2018-09-23 14:33:16.390759869 +0200
|
||
|
|
+++ guile-2.2.4/test-suite/tests/posix.test 2018-09-23 14:33:35.298895612 +0200
|
||
|
|
@@ -230,12 +230,4 @@
|
||
|
|
(with-test-prefix "crypt"
|
||
|
|
|
||
|
|
(pass-if "basic usage"
|
||
|
|
- (string? (crypt "pass" "abcdefg")))
|
||
|
|
-
|
||
|
|
- (pass-if-exception "glibc EINVAL" exception:system-error
|
||
|
|
- ;; This used to deadlock while trying to throw to 'system-error'.
|
||
|
|
- ;; This test uses the special interpretation of the salt that glibc
|
||
|
|
- ;; does; specifically, we pass a syntactically invalid salt here.
|
||
|
|
- (if (string-contains %host-type "-gnu")
|
||
|
|
- (crypt "pass" "$X$abc") ;EINVAL
|
||
|
|
- (throw 'unresolved))))
|
||
|
|
+ (string? (crypt "pass" "abcdefg"))))
|