diff options
Diffstat (limited to 'tests/dict.lisp')
| -rw-r--r-- | tests/dict.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/dict.lisp b/tests/dict.lisp new file mode 100644 index 0000000..379863e --- /dev/null +++ b/tests/dict.lisp @@ -0,0 +1,15 @@ +(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")))
\ No newline at end of file |