mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
82 lines
2.4 KiB
Scheme
82 lines
2.4 KiB
Scheme
|
|
(cond-expand
|
|
(modules (import (chibi io) (only (chibi test) test-begin test test-end)))
|
|
(else #f))
|
|
|
|
(test-begin "io")
|
|
|
|
(define long-string (make-string 2000 #\a))
|
|
|
|
(test "input-string-port" 1025
|
|
(call-with-input-string (substring long-string 0 1025)
|
|
(lambda (in)
|
|
(let loop ((c (read-char in)) (i 0))
|
|
(cond ((eof-object? c) i)
|
|
((> i 1025) (error "read past eof"))
|
|
(else (loop (read-char in) (+ i 1))))))))
|
|
|
|
(test "read-line" '("abc" "def")
|
|
(call-with-input-string "abc\ndef\n"
|
|
(lambda (in) (let ((line (read-line in))) (list line (read-line in))))))
|
|
|
|
(test "read-line-to-eof" '("abc" "def")
|
|
(call-with-input-string "abc\ndef"
|
|
(lambda (in) (let ((line (read-line in))) (list line (read-line in))))))
|
|
|
|
(test "read-string" '("abc" "def")
|
|
(call-with-input-string "abcdef"
|
|
(lambda (in) (let ((str (read-string 3 in))) (list str (read-string 3 in))))))
|
|
|
|
(test "read-string-to-eof" '("abc" "de")
|
|
(call-with-input-string "abcde"
|
|
(lambda (in) (let ((str (read-string 3 in))) (list str (read-string 3 in))))))
|
|
|
|
(test "read-string!" '("abc" "def")
|
|
(call-with-input-string "abcdef"
|
|
(lambda (in)
|
|
(let* ((str1 (make-string 3))
|
|
(str2 (make-string 3)))
|
|
(read-string! str1 3 in)
|
|
(read-string! str2 3 in)
|
|
(list str1 str2)))))
|
|
|
|
(test "read-string!-to-eof" '("abc" "de ")
|
|
(call-with-input-string "abcde"
|
|
(lambda (in)
|
|
(let* ((str1 (make-string 3))
|
|
(str2 (make-string 3 #\space)))
|
|
(read-string! str1 3 in)
|
|
(read-string! str2 3 in)
|
|
(list str1 str2)))))
|
|
|
|
(test "null-output-port" #t
|
|
(let ((out (make-null-output-port)))
|
|
(write 1 out)
|
|
(close-output-port out)
|
|
#t))
|
|
|
|
(test "null-input-port" #t
|
|
(let ((in (make-null-input-port)))
|
|
(let ((res (eof-object? (read-char in))))
|
|
(close-input-port in)
|
|
res)))
|
|
|
|
(define (string-upcase str)
|
|
(list->string (map char-upcase (string->list str))))
|
|
|
|
(test "upcase-input-port" "ABC"
|
|
(call-with-input-string "abc"
|
|
(lambda (in)
|
|
(let ((in (make-filtered-input-port string-upcase in)))
|
|
(let ((res (read-line in)))
|
|
(close-input-port in)
|
|
res)))))
|
|
|
|
(test "upcase-output-port" "ABC"
|
|
(call-with-output-string
|
|
(lambda (out)
|
|
(let ((out (make-filtered-output-port string-upcase out)))
|
|
(display "abc" out)
|
|
(close-output-port out)))))
|
|
|
|
(test-end)
|