From 5d4bb7d4299c93ddaf31c243da66f02d6af9288a Mon Sep 17 00:00:00 2001 From: pfdietz Date: Thu, 12 Feb 2004 10:32:20 +0000 Subject: [PATCH] Tests for two-way-stream accessor functions. --- ansi-tests/two-way-stream-input-stream.lsp | 26 +++++++++++++++++++++ ansi-tests/two-way-stream-output-stream.lsp | 26 +++++++++++++++++++++ 2 files changed, 52 insertions(+) create mode 100644 ansi-tests/two-way-stream-input-stream.lsp create mode 100644 ansi-tests/two-way-stream-output-stream.lsp 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 0000000..1d96e01 --- /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 0000000..a8415e0 --- /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) -- GitLab