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

Making custom port tests optional.

Browse source
This commit is contained in:
Alex Shinn 2011-12-17 15:57:32 +09:00
parent 24b43e367b
commit e2cae1558c
1 changed files with 31 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/io-tests.scm
View file

@ -23,6 +23,12 @@
(call-with-input-string "abc\ndef" (call-with-input-string "abc\ndef"
(lambda (in) (let ((line (read-line in))) (list line (read-line in)))))) (lambda (in) (let ((line (read-line in))) (list line (read-line in))))))
;; Custom ports are only supported with string streams (i.e. either
;; GNU fopencookie or BSD funopen).
(cond-expand
(string-streams
(test "null-output-port" #t (test "null-output-port" #t
(let ((out (make-null-output-port))) (let ((out (make-null-output-port)))
(write 1 out) (write 1 out)
@ -51,6 +57,6 @@
(lambda (out) (lambda (out)
(let ((out (make-filtered-output-port string-upcase out))) (let ((out (make-filtered-output-port string-upcase out)))
(display "abc" out) (display "abc" out)
(close-output-port out))))) (close-output-port out)))))))
(test-end) (test-end)