diff options
| author | Mistivia <i@mistivia.com> | 2025-12-27 01:45:03 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-12-27 01:45:03 +0800 |
| commit | 0ab2f1ed9db065dac95f8827df0ef523a8597bd9 (patch) | |
| tree | 52377c351db11317c364798c1df0a00fd44ca48a /exts/tests/test_dict.lisp | |
| parent | 1232e077f5273d86600cb4a4c34269310f9f2b9f (diff) | |
exts
Diffstat (limited to 'exts/tests/test_dict.lisp')
| -rw-r--r-- | exts/tests/test_dict.lisp | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/exts/tests/test_dict.lisp b/exts/tests/test_dict.lisp deleted file mode 100644 index 501faba..0000000 --- a/exts/tests/test_dict.lisp +++ /dev/null @@ -1,17 +0,0 @@ -(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")))
\ No newline at end of file |
