From 10d00dd079c19683f9b01098729ea6b8d5816c08 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 21 Apr 2004 03:32:37 +0000
Subject: [PATCH] More string printing tests

---
 ansi-tests/print-strings.lsp | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/ansi-tests/print-strings.lsp b/ansi-tests/print-strings.lsp
index 83d6c70b..24878b71 100644
--- a/ansi-tests/print-strings.lsp
+++ b/ansi-tests/print-strings.lsp
@@ -94,6 +94,38 @@
 	result))
   t)
 
+(deftest print.string.11
+  (let* ((s (make-array '(8) :element-type 'base-char
+			:initial-contents "abcdefgh"
+			:adjustable t))
+	 (result
+	  (with-standard-io-syntax
+	   (write-to-string s :escape t :readably nil))))
+    (or (and (string= result "\"abcdefgh\"") t)
+	result))
+  t)
+
+(deftest print.string.12
+  (let* ((s1 (make-array '(8) :element-type 'character
+			 :initial-contents "abcdefgh"))
+	 (s2 (make-array '(4) :element-type 'character
+			 :displaced-to s1
+			 :displaced-index-offset 2))
+	 (result
+	  (with-standard-io-syntax
+	   (write-to-string s2 :escape t :readably nil))))
+    (or (and (string= result "\"cdef\"") t)
+	result))
+  t)
+
+;;; *print-array* should not affect string printing
+
+(deftest print.string.13
+  (with-standard-io-syntax
+   (write-to-string "1234" :array nil :readably nil :escape t))
+  "\"1234\"")
+    
+
 ;;; The ever-popular nil string
 
 (deftest print.string.nil.1
-- 
GitLab