File mutils/tests/datastruct.scm artifact 26239e26a3 part of check-in d364a1a95e
(use test) (include "datastruct.scm") (define hh (make-hash-table)) (hierhash-set! hh 5 1 2 3 4) (test 5 (hierhash-ref hh 1 2 3 4)) (hierhash-set! hh 10 1 2 3 5) (test 10 (hierhash-ref hh 1 2 3 5)) (test 5 (hierhash-ref hh 1 2 3 4))