diff options
Diffstat (limited to 'exts/tests')
| -rw-r--r-- | exts/tests/test_dict.lisp | 17 | ||||
| -rw-r--r-- | exts/tests/test_io.lisp | 15 |
2 files changed, 0 insertions, 32 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 diff --git a/exts/tests/test_io.lisp b/exts/tests/test_io.lisp deleted file mode 100644 index 76b91ce..0000000 --- a/exts/tests/test_io.lisp +++ /dev/null @@ -1,15 +0,0 @@ -(loadext "io.so") - -(defvar fp (open-file "./test_input.txt" "r")) -(read-char fp) -(read-char fp) -(read-char fp) -(stream-close fp) - -(defvar fp (open-file "./test_input.txt" "r")) -(read-line fp) -(stream-close fp) - -(defvar fp (open-file "./test_input.txt" "r")) -(lines fp) -(stream-close fp)
\ No newline at end of file |
