Changeset 14857 for trunk/abcl/test/lisp/abcl/misc-tests.lisp

Timestamp:

09/04/16 07:01:02 (7 years ago)

Author:

Mark Evenson

Message:

[PATCH 5/5] Support FILE-POSITION on string streams.
From cb667c106187443ff2d00bace14f0ee0686fe2fd Mon Sep 17 00:00:00 2001
Adds a custom, seekable writer to be able to go back in the written
output for STRING-OUTPUT-STREAM - the input case is slightly less
complex.
---

build.xml | 1 +
src/org/armedbear/lisp/SeekableStringWriter.java | 140 +++++++++++++++++++++
src/org/armedbear/lisp/StringInputStream.java | 43 ++++++-
src/org/armedbear/lisp/StringOutputStream.java | 35 +++++-
test/lisp/abcl/misc-tests.lisp | 11 +-
.../armedbear/lisp/SeekableStringWriterTest.java | 19 +++
6 files changed, 242 insertions(+), 7 deletions(-)
create mode 100644 src/org/armedbear/lisp/SeekableStringWriter.java
create mode 100644 test/src/org/armedbear/lisp/SeekableStringWriterTest.java

File:

• trunk/abcl/test/lisp/abcl/misc-tests.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/misc-tests.lisp

@@ -110 +110 @@
                                  (values 42 2))))))
   42 2)
+
+(deftest string-output-stream.seekable
+    (string= "Goodbye, World! Something."
+             (let ((stream (make-string-output-stream)))
+               (write-string "Hello, World!   Something." stream)
+               (file-position stream :start)
+               (write-string "Goodbye, World!" stream)
+               (get-output-stream-string stream)))
+  T)