srfi/69/test.sld

24         (hash-table-set! ht 'elephant 'pink)
28         (test-assert (hash-table-exists? ht 'elephant))
32         (test 'pink (hash-table-ref ht 'elephant))
36         (test-lset-eq? '(cat dog elephant) (hash-table-keys ht))
38         (test-lset-equal? '((cat . black) (dog . white) (elephant . pink))
46         (test-assert (hash-table-exists? ht 'elephant))
49         (test 'pink (hash-table-ref ht 'elephant))
50         (test-lset-eq? '(cat elephant) (hash-table-keys ht))
52         (test-lset-equal? '((cat . black) (elephant . pink)) (hash-table->alist ht))
64         (test-assert (hash-table-exists? ht 'elephant))
67         (test 'pink (hash-table-ref ht 'elephant))
68         (test-lset-eq? '(cat elephant) (hash-table-keys ht))
70         (test-lset-equal? '((cat . calico) (elephant . pink)) (hash-table->alist ht))
74          '((cat . calico) (elephant . pink))
78         (test-lset-equal? '((cat . calico) (elephant . pink))
86           (test-assert (hash-table-exists? ht2 'elephant))
89           (test 'pink (hash-table-ref ht2 'elephant))
90           (test-lset-eq? '(cat elephant) (hash-table-keys ht2))
92           (test-lset-equal? '((cat . calico) (elephant . pink))
105           (test-assert (hash-table-exists? ht2 'elephant))
109           (test 'pink (hash-table-ref ht2 'elephant))
112           (test-lset-eq? '(bear cat elephant) (hash-table-keys ht2))
114           (test-lset-equal? '((cat . calico) (bear . brown) (elephant . pink))
121                             '((cat . calico) (elephant . pink))))))
139         (hash-table-set! ht "elephant" 'pink)
143         (test 'pink (hash-table-ref ht "elephant"))
146         (test-lset-equal? '("cat" "dog" "elephant") (hash-table-keys ht))
149          '(("cat" . black) ("dog" . white) ("elephant" . pink))
156         (hash-table-set! ht "elephant" 'pink)
162         (test-lset-equal? '("cat" "dog" "elephant") (hash-table-keys ht))
165          '(("cat" . black) ("dog" . white) ("elephant" . pink))