aboutsummaryrefslogtreecommitdiff
path: root/exts/tests
diff options
context:
space:
mode:
Diffstat (limited to 'exts/tests')
-rw-r--r--exts/tests/test_dict.lisp17
-rw-r--r--exts/tests/test_io.lisp15
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