From 0857e4170a8052fb52758848fdcb78850b100d40 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 22 May 2005 01:14:37 +0000 Subject: [PATCH] Add test checking that the element type of a stream opened with element-type :default is a character or integer type (if this can be determined with subtypep) --- ansi-tests/stream-element-type.lsp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/ansi-tests/stream-element-type.lsp b/ansi-tests/stream-element-type.lsp index e595ecea..71bfa864 100644 --- a/ansi-tests/stream-element-type.lsp +++ b/ansi-tests/stream-element-type.lsp @@ -73,6 +73,21 @@ (close s))))) nil) +(deftest stream-element-type.6 + :notes (:assume-no-simple-streams) + (let ((pn "foo.txt")) + (delete-all-versions pn) + (let ((s (open pn :direction :output + :element-type :default))) + (let ((etype (stream-element-type s))) + (unwind-protect + (multiple-value-bind (sub1 good1) (subtypep* etype 'integer) + (multiple-value-bind (sub2 good2) (subtypep* etype 'character) + (or (not good1) + (not good2) + sub1 sub2))) + (close s))))) + t) (deftest stream-element-type.error.1 (signals-error (stream-element-type) program-error) -- GitLab