mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-21 14:49:17 +02:00
Add cond-expand for memory streams
This commit is contained in:
parent
334787b6d6
commit
1d775c5a75
1 changed files with 16 additions and 12 deletions
|
@ -30,18 +30,22 @@
|
||||||
(test '() (make-list -2))
|
(test '() (make-list -2))
|
||||||
)
|
)
|
||||||
|
|
||||||
(test-group
|
(cond-expand
|
||||||
"I/O"
|
(memory streams
|
||||||
(define p (open-input-string "one\ntwo\n"))
|
(test-group
|
||||||
(test #\o (read-char p))
|
"I/O"
|
||||||
(test "ne" (read-line p))
|
(define p (open-input-string "one\ntwo\n"))
|
||||||
(test "two" (read-line p))
|
(test #\o (read-char p))
|
||||||
(test (eof-object) (read-line p))
|
(test "ne" (read-line p))
|
||||||
(define p (open-input-string "one\ntwo\n"))
|
(test "two" (read-line p))
|
||||||
(test "one" (read-line p))
|
(test (eof-object) (read-line p))
|
||||||
(test #\t (read-char p))
|
(define p (open-input-string "one\ntwo\n"))
|
||||||
(test #\w (read-char p))
|
(test "one" (read-line p))
|
||||||
(test "o" (read-line p))
|
(test #\t (read-char p))
|
||||||
|
(test #\w (read-char p))
|
||||||
|
(test "o" (read-line p))
|
||||||
|
)
|
||||||
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
(test-group
|
(test-group
|
||||||
|
|
Loading…
Add table
Reference in a new issue