Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
1c5a201b
Commit
1c5a201b
authored
Feb 14, 2004
by
pfdietz
Browse files
Finish concatenated stream tests, and add tests of get-output-stream-string
parent
96d0679f
Changes
4
Hide whitespace changes
Inline
Side-by-side
ansi-tests/TODO
View file @
1c5a201b
...
...
@@ -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
ansi-tests/get-output-stream-string.lsp
0 → 100644
View file @
1c5a201b
;-*- 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)
ansi-tests/load-streams.lsp
View file @
1c5a201b
...
...
@@ -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")
ansi-tests/make-concatenated-stream.lsp
View file @
1c5a201b
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment