blob: 501faba16121feb247d28f72c48344447d0f6d2b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(loadext "./dict.so")
(defvar d (make-dict))
(dict-set d "a" 1)
(dict-set d "b" 2)
(dict-set d "c" 3)
(assert (equal? (dict-keys d) (list "a" "b" "c")))
(assert (equal? (dict-get d "a") 1))
(assert (equal? (dict-get d "b") 2))
(dict-set d "a" 5)
(assert (equal? (dict-get d "a") 5))
(dict-remove d "b")
(assert (equal? (dict-keys d) (list "a" "c")))
|
