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

Fix crypt-on-glibc test error

Browse source 
* test-suite/tests/posix.test ("crypt"): Allow for the given salt being
  valid.  Thanks to Jonathan Brielmaier for the report and debugging!
This commit is contained in:
Andy Wingo 2019-02-01 17:18:50 +01:00
parent 1f6786db06
commit 667e511dc3
1 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;;; posix.test --- Test suite for Guile POSIX functions. -*- scheme -*-
;;;;
;;;; Copyright 2003, 2004, 2006, 2007, 2010, 2012,
;;;; 2015, 2017 Free Software Foundation, Inc.
;;;; 2015, 2017, 2019 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -232,10 +232,17 @@
(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))))
(pass-if "crypt invalid salt on glibc"
(begin
(unless (string-contains %host-type "-gnu")
(throw 'unresolved))
(catch 'system-error
(lambda ()
;; This used to deadlock on glibc while trying to throw to
;; 'system-error'. This test uses the special
;; interpretation of the salt that glibc does;
;; specifically, we pass a salt that's probably
;; syntactically invalid here. Note, whether it's invalid
;; or not is system-defined, so it's possible it just works.
(string? (crypt "pass" "$X$abc")))
(lambda _ #t)))))