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