Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added more I/O tests

Browse source
This commit is contained in:
Justin Ethier 2015-06-24 21:22:54 -04:00
parent 674807a9e2
commit 7103f52f8b
2 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test2.scm
View file

@ -1,10 +1,5 @@
(import (scheme base)
(scheme file)
(scheme write))
; TODO: I think this compiles OK (test), but interpreter does not like it:
;cyclone>
(call-with-output-file "test.txt" (lambda (port) (write 'ok port)))
;Error: Unable to evaluate: ((procedure () ...) <port>)
#t

3
tests/unit-tests.scm
View file

@ -275,8 +275,11 @@
"test.out"
(lambda ()
(assert:equal "I/O with-*-file test" (read) 'hello-world)))
(call-with-output-file "test.txt" (lambda (port) (write 'ok port))) ;; Note: was a good test, did not always work in icyc
(call-with-input-file "test.txt" (lambda (port) (assert:equal "read input" (read port) 'ok)))
;(write "done with input")
;; TODO: (delete-file "test.out")
;; TODO: (delete-file "test.txt")
;; END I/O
; TODO: use display, output without surrounding quotes