* tests/ports.test ("string ports"): test seeking/unreading from

	an input string and seeking an output string.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 00a7704..cf63d73 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-24  Gary Houston  <ghouston@freewire.co.uk>
+
+       * tests/ports.test ("string ports"): test seeking/unreading from
+       an input string and seeking an output string.
+
 1999-10-20  Gary Houston  <ghouston@freewire.co.uk>
 
        * tests/ports.test: in seek/tell test on input port, also test

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 9787a0f..5c508a9 100644 (file)
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -257,7 +257,58 @@
                                      (write sexpr port)))
                                   read)))
      (pass-if "write/read sexpr"
-             (equal? in-sexpr sexpr)))))
+             (equal? in-sexpr sexpr))))
+
+  ;; seeking and unreading from an input string.
+  (catch-test-errors
+   (let ((text "that text didn't look random to me"))
+     (call-with-input-string text
+                            (lambda (p)
+                              (pass-if "input tell 0"
+                                       (= (seek p 0 SEEK_CUR) 0))
+                              (read-char p)
+                              (pass-if "input tell 1"
+                                       (= (seek p 0 SEEK_CUR) 1))
+                              (unread-char #\x p)
+                              (pass-if "input tell back to 0"
+                                       (= (seek p 0 SEEK_CUR) 0))
+                              (pass-if "input ungetted char"
+                                       (char=? (read-char p) #\x))
+                              (seek p 0 SEEK_END)
+                              (pass-if "input seek to end"
+                                       (= (seek p 0 SEEK_CUR)
+                                          (string-length text)))
+                              (unread-char #\x p)
+                              (pass-if "input seek to beginning"
+                                       (= (seek p 0 SEEK_SET) 0))
+                              (pass-if "input reread first char"
+                                       (char=? (read-char p)
+                                               (string-ref text 0)))))))
+                                          
+  ;; seeking an output string.
+  (catch-test-errors
+   (let* ((text "123456789")
+         (len (string-length text))
+         (result (call-with-output-string
+                  (lambda (p)
+                    (pass-if "output tell 0"
+                             (= (seek p 0 SEEK_CUR) 0))
+                    (display text p)
+                    (pass-if "output tell end"
+                             (= (seek p 0 SEEK_CUR) len))
+                    (pass-if "output seek to beginning"
+                             (= (seek p 0 SEEK_SET) 0))
+                    (write-char #\a p)
+                    (seek p -1 SEEK_END)
+                    (pass-if "output seek to last char"
+                             (= (seek p 0 SEEK_CUR)
+                                (- len 1)))
+                    (write-char #\b p)))))
+     (string-set! text 0 #\a)
+     (string-set! text (- len 1) #\b)
+     (pass-if "output check"
+             (string=? text result)))))
+
 
 \f
 ;;;; Soft ports.  No tests implemented yet.