mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
fix a vhash test
* test-suite/tests/vlist.test ("vhash"): As far as I can tell this test was not testing the right thing.
This commit is contained in:
parent
41d1d984ae
commit
cd644b5424
1 changed files with 2 additions and 2 deletions
|
@ -220,11 +220,11 @@
|
|||
(and (fold (lambda (k v result)
|
||||
(and result
|
||||
(equal? (cons k v)
|
||||
(vhash-assq k vh))))
|
||||
(vhash-assoc k vh))))
|
||||
#t
|
||||
keys
|
||||
values)
|
||||
(not (vhash-assq 'x vh)))))
|
||||
(not (vhash-assoc 'x vh)))))
|
||||
|
||||
(pass-if "vhash as vlist"
|
||||
(let* ((keys '(a b c d e f g h i))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue