mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

fix a vhash test

Browse source 
* 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:
Andy Wingo 2011-10-26 00:06:33 +02:00
parent 41d1d984ae
commit cd644b5424
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/vlist.test
View file

@ -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))