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

Add cond-expand for memory streams

Browse source
This commit is contained in:
Justin Ethier 2023-12-17 19:11:55 -08:00
parent 334787b6d6
commit 1d775c5a75
1 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/base.scm
View file

@ -30,7 +30,9 @@
(test '() (make-list -2)) (test '() (make-list -2))
) )
(test-group (cond-expand
(memory streams
(test-group
"I/O" "I/O"
(define p (open-input-string "one\ntwo\n")) (define p (open-input-string "one\ntwo\n"))
(test #\o (read-char p)) (test #\o (read-char p))
@ -42,6 +44,8 @@
(test #\t (read-char p)) (test #\t (read-char p))
(test #\w (read-char p)) (test #\w (read-char p))
(test "o" (read-line p)) (test "o" (read-line p))
)
)
) )
(test-group (test-group