HIRAUCHI Hideyuki
hira****@verys*****
2004年 2月 14日 (土) 11:42:08 JST
平内です。
すいません。テストプログラムが変でした。
port-current-lineは問題なく動いてるようです。
(use gauche.test)
(call-with-output-file "tmp1.o" (lambda (p) (newline p)(newline p)(newline p)))
(test* "port-current-line" 4
(call-with-input-file "tmp1.o"
(lambda (p)
(let loop ((cl (port-current-line p)))
(if (eof-object? (read-char p))
cl
(loop (port-current-line p)))))))
これを実行すると、
test port-current-line, expects 4 ==> ok
--hira