diff --git a/ansi-tests/two-way-stream-input-stream.lsp b/ansi-tests/two-way-stream-input-stream.lsp new file mode 100644 index 0000000000000000000000000000000000000000..1d96e0106397cad3b50272906eddfee3599a4927 --- /dev/null +++ b/ansi-tests/two-way-stream-input-stream.lsp @@ -0,0 +1,26 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Feb 12 04:22:50 2004 +;;;; Contains: Tests of TWO-WAY-STREAM-INPUT-STREAM + +(in-package :cl-test) + +(deftest two-way-stream-input-stream.1 + (let* ((is (make-string-input-stream "foo")) + (os (make-string-output-stream)) + (s (make-two-way-stream is os))) + (equalt (multiple-value-list (two-way-stream-input-stream s)) + (list is))) + t) + +(deftest two-way-stream-input-stream.error.1 + (signals-error (two-way-stream-input-stream) program-error) + t) + +(deftest two-way-stream-input-stream.error.2 + (signals-error (let* ((is (make-string-input-stream "foo")) + (os (make-string-output-stream)) + (s (make-two-way-stream is os))) + (two-way-stream-input-stream s nil)) + program-error) + t) diff --git a/ansi-tests/two-way-stream-output-stream.lsp b/ansi-tests/two-way-stream-output-stream.lsp new file mode 100644 index 0000000000000000000000000000000000000000..a8415e0dcb9eb971e28c966e04e63d52fa1a84cc --- /dev/null +++ b/ansi-tests/two-way-stream-output-stream.lsp @@ -0,0 +1,26 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Feb 12 04:25:59 2004 +;;;; Contains: Tests off TWO-WAY-STREAM-OUTPUT-STREAM + +(in-package :cl-test) + +(deftest two-way-stream-output-stream.1 + (let* ((is (make-string-input-stream "foo")) + (os (make-string-output-stream)) + (s (make-two-way-stream is os))) + (equalt (multiple-value-list (two-way-stream-output-stream s)) + (list os))) + t) + +(deftest two-way-stream-output-stream.error.1 + (signals-error (two-way-stream-output-stream) program-error) + t) + +(deftest two-way-stream-output-stream.error.2 + (signals-error (let* ((is (make-string-input-stream "foo")) + (os (make-string-output-stream)) + (s (make-two-way-stream is os))) + (two-way-stream-output-stream s nil)) + program-error) + t)