diff options
| author | Mistivia <i@mistivia.com> | 2025-12-14 17:41:43 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-12-14 17:41:43 +0800 |
| commit | 1232e077f5273d86600cb4a4c34269310f9f2b9f (patch) | |
| tree | e1a28eb054ed001737b7d49bd8341cb4e5d26997 /exts/tests/test_io.lisp | |
| parent | 724718566c384d8be60f2803e5ecd6be43c6d74b (diff) | |
add io ext
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 |