commit ba8ed47725bb624548ddad349617ca19aa696cd0
parent d725a46541f65a1f5ce10ddeba1d5d5e136d964e
Author: Andres Navarro <canavarro82@gmail.com>
Date: Fri, 21 Oct 2011 15:44:20 -0300
Added TODO note in port tests to add new r7rs functions.
Diffstat:
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/tests/ports.k b/src/tests/ports.k
@@ -170,9 +170,13 @@
;; Additional input functions: char-ready?
;; TODO
-;; Additional output functions: write-char newline display
+;; Additional output functions: write-char newline display flush-ouput-port
($check equal? ($output-test (write-char #\a)) "a")
($check equal? ($output-test (newline)) (list->string (list #\newline)))
($check equal? ($output-test (display "abc")) "abc")
+;; XXX flush-ouput-port is difficult to test...
+
+;; File manipulation functions: file-exists? delete-file rename-file
+;; TODO
+\ No newline at end of file