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

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-12-13 12:27:37 +00:00
parent 2ae87f26a8
commit 70a4404429
4 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/tests/srfi-69.test
View file

@ -102,4 +102,7 @@ case-insensitive strings to `equal?'-tested values."
(and (= 1 (hash-table-size ht))
(lset= equal? '((b . 53)) (hash-table->alist ht)))))
(pass-if "can use all arguments, including size"
(hash-table? (make-hash-table equal? hash #:weak 'key 31)))
)