Commit a05b6107 authored by pfdietz's avatar pfdietz
Browse files

Tests of stream-error-stream

parent 694da10d
...@@ -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")
;-*- 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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment