diff --git a/ansi-tests/TODO b/ansi-tests/TODO index 50c6c5303b97a60fda15579d70e878ed113de0a2..26fb54b9967724cca8bd6c37b9357e525d7e4f3c 100644 --- a/ansi-tests/TODO +++ b/ansi-tests/TODO @@ -23,3 +23,5 @@ Things to do to the test suite (not a complete list) 11. Address issues with broadcast streams (C. Rhodes) -- apparent contradictions in the spec. + +12. Make sure all string operators work on displaced character vectors. \ No newline at end of file diff --git a/ansi-tests/get-output-stream-string.lsp b/ansi-tests/get-output-stream-string.lsp new file mode 100644 index 0000000000000000000000000000000000000000..7fc390c751dbeabcdbd89910204db2718a4babd8 --- /dev/null +++ b/ansi-tests/get-output-stream-string.lsp @@ -0,0 +1,32 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Feb 14 09:48:46 2004 +;;;; Contains: Tests of GET-OUTPUT-STREAM-STRING + +(in-package :cl-test) + +;; this function is used extensively elsewhere in the test suite + +(deftest get-output-stream-string.1 + (let ((s (make-string-output-stream))) + (values + (get-output-stream-string s) + (write-string "abc" s) + (write-string "def" s) + (get-output-stream-string s) + (get-output-stream-string s))) + "" "abc" "def" "abcdef" "") + +;;; Error cases + +(deftest get-output-stream-string.error.1 + (signals-error (get-output-stream-string) t) + t) + +(deftest get-output-stream-string.error.2 + (signals-error (get-output-stream-string (make-string-output-stream) nil) t) + t) + + + + diff --git a/ansi-tests/load-streams.lsp b/ansi-tests/load-streams.lsp index becaf532a23f62fac1c369d677a106e7c67db72a..c8d2952d71543e7a897c0d7e18bba8b2c2add667 100644 --- a/ansi-tests/load-streams.lsp +++ b/ansi-tests/load-streams.lsp @@ -46,4 +46,5 @@ (load "echo-stream-output-stream.lsp") (load "make-echo-stream.lsp") (load "concatenated-stream-streams.lsp") -(load "make-concatenated-stream.lsp") \ No newline at end of file +(load "make-concatenated-stream.lsp") +(load "get-output-stream-string.lsp") diff --git a/ansi-tests/make-concatenated-stream.lsp b/ansi-tests/make-concatenated-stream.lsp index 85caac8abb5da1badaa8673f5f8be2f41506e362..02f68d3622aec108f42eae3619d01299d30bc561 100644 --- a/ansi-tests/make-concatenated-stream.lsp +++ b/ansi-tests/make-concatenated-stream.lsp @@ -295,6 +295,16 @@ (listen s)))) nil) +(deftest make-concatenated-stream.32 + (clear-input (make-concatenated-stream)) + nil) + +(deftest make-concatenated-stream.33 + (with-input-from-string + (s1 "abc") + (clear-input (make-concatenated-stream s1))) + nil) + ;;; Error cases (deftest make-concatenated-stream.error.1