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
a05b6107
Commit
a05b6107
authored
Feb 15, 2004
by
pfdietz
Browse files
Tests of stream-error-stream
parent
694da10d
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/load-streams.lsp
View file @
a05b6107
...
@@ -52,3 +52,5 @@
...
@@ -52,3 +52,5 @@
(load "make-string-output-stream.lsp")
(load "make-string-output-stream.lsp")
(load "with-input-from-string.lsp")
(load "with-input-from-string.lsp")
(load "with-output-to-string.lsp")
(load "with-output-to-string.lsp")
(load "stream-error-stream.lsp")
ansi-tests/stream-error-stream.lsp
0 → 100644
View file @
a05b6107
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Feb 14 20:51:33 2004
;;;; Contains: Tests of STREAM-ERROR-STREAM
(in-package :cl-test)
(deftest stream-error-stream.1
(with-input-from-string
(s "")
(handler-case
(read-char s)
(stream-error (c) (eqlt (stream-error-stream c) s))))
t)
;;; Error tests
(deftest stream-error-stream.error.1
(signals-error (stream-error-stream) program-error)
t)
(deftest stream-error-stream.error.2
(signals-error
(with-input-from-string
(s "")
(handler-case
(read-char s)
(stream-error (c) (stream-error-stream c nil))))
program-error)
t)
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