diff options
Diffstat (limited to 'exts/tests/test_io.lisp')
| -rw-r--r-- | exts/tests/test_io.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/exts/tests/test_io.lisp b/exts/tests/test_io.lisp new file mode 100644 index 0000000..76b91ce --- /dev/null +++ b/exts/tests/test_io.lisp @@ -0,0 +1,15 @@ +(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 |