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
694da10d
Commit
694da10d
authored
Feb 15, 2004
by
pfdietz
Browse files
Tests for with-output-to-string
parent
2ec39bdb
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/load-streams.lsp
View file @
694da10d
...
...
@@ -51,3 +51,4 @@
(load "make-string-input-stream.lsp")
(load "make-string-output-stream.lsp")
(load "with-input-from-string.lsp")
(load "with-output-to-string.lsp")
ansi-tests/with-output-to-string.lsp
0 → 100644
View file @
694da10d
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Feb 14 20:33:51 2004
;;;; Contains: Tests of WITH-OUTPUT-TO-STRING
(in-package :cl-test)
(deftest with-output-to-string.1
(with-output-to-string (s))
"")
(deftest with-output-to-string.2
(with-output-to-string (s) (write-char #\3 s))
"3")
(deftest with-output-to-string.3
(with-output-to-string (s (make-array 10 :fill-pointer 0
:element-type 'character)))
nil)
(deftest with-output-to-string.4
(let ((str (make-array 10 :fill-pointer 0 :element-type 'character)))
(values
(with-output-to-string
(s str :element-type nil)
(write-string "abcdef" s))
str))
"abcdef" "abcdef")
(deftest with-output-to-string.5
(with-output-to-string (s (make-array 10 :fill-pointer 0
:element-type 'character))
(values)))
(deftest with-output-to-string.6
(with-output-to-string (s (make-array 10 :fill-pointer 0
:element-type 'character))
(values 'a 'b 'c 'd))
a b c d)
(deftest with-output-to-string.7
(with-output-to-string (s nil :element-type 'character)
(write-char #\& s))
"&")
(deftest with-output-to-string.8
(with-output-to-string (s nil :element-type 'base-char)
(write-char #\8 s))
"8")
(deftest with-output-to-string.9
(with-output-to-string (s nil :element-type nil))
"")
(deftest with-output-to-string.10
(let* ((s1 (make-array 20 :element-type 'character
:initial-element #\.))
(s2 (make-array 10 :element-type 'character
:displaced-to s1
:displaced-index-offset 5
:fill-pointer 0)))
(values
(with-output-to-string
(s s2)
(write-string "0123456789" s))
s1
s2))
"0123456789"
".....0123456789....."
"0123456789")
(deftest with-output-to-string.11
(with-output-to-string (s) (declare (optimize safety)))
"")
(deftest with-output-to-string.12
(with-output-to-string (s) (declare (optimize safety))
(declare (optimize (speed 0))))
"")
(deftest with-output-to-string.13
(with-output-to-string
(s)
(write-char #\0 s)
(write-char #\4 s)
(write-char #\9 s))
"049")
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