diff options
Diffstat (limited to 'test-suite/tests/srfi-69.test')
-rw-r--r-- | test-suite/tests/srfi-69.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/tests/srfi-69.test b/test-suite/tests/srfi-69.test index e99b76c6d..f9f6c3f33 100644 --- a/test-suite/tests/srfi-69.test +++ b/test-suite/tests/srfi-69.test @@ -1,6 +1,6 @@ ;;;; srfi-69.test --- Test suite for SRFI 69 -*- scheme -*- ;;;; -;;;; Copyright (C) 2007 Free Software Foundation, Inc. +;;;; Copyright (C) 2007, 2025 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 @@ -51,6 +51,8 @@ case-insensitive strings to `equal?'-tested values." '(("xy" . 42) ("abc" . 54) ("qqq" . 100)) (hash-table->alist ht))))) + ;; FIXME: Either revive or deprecate. + #; (pass-if-exception "Bad weakness arg to mht signals an error" '(misc-error . "^Invalid weak hash table type") (make-hash-table equal? hash #:weak 'key-and-value)) @@ -101,6 +103,8 @@ case-insensitive strings to `equal?'-tested values." (and (= 1 (hash-table-size ht)) (lset= equal? '((b . 53)) (hash-table->alist ht))))) + ;; FIXME: Either revive or deprecate. + #; (pass-if "can use all arguments, including size" (hash-table? (make-hash-table equal? hash #:weak 'key 31))) |