From c37d18bd6afda479ff143357592f01234e455f63 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 7 Jun 2004 11:26:06 +0000
Subject: [PATCH] More backquote related printing tests

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

diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp
index a156e07c..17a40e8b 100644
--- a/ansi-tests/print-cons.lsp
+++ b/ansi-tests/print-cons.lsp
@@ -73,6 +73,66 @@
      nconc (randomly-check-readability x :test #'is-similar)))
   nil)
 
+(deftest print.backquote.random.2
+  (let ((x '`(,@a ,@b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.3
+  (let ((x '`(,.a ,.b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.4
+  (let ((x '`(,a ,b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.5
+  (let ((x '`#(,a ,b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.6
+  (let ((x '`(,@a ,@b)))
+    (and (consp x)
+	 (loop
+	  repeat 20
+	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
+  nil)
+
+(deftest print.backquote.random.7
+  (let ((x '`(,.a ,.b)))
+    (and (consp x)
+	 (loop
+	  repeat 20
+	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
+  nil)
+
+(deftest print.backquote.random.8
+  (let ((x '`(,a ,b)))
+    (and (consp x)
+	 (loop
+	  repeat 20
+	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
+  nil)
+
+(deftest print.backquote.random.9
+  (let ((x '`#(,a ,b)))
+    (and (consp x)
+	 (loop
+	  repeat 20
+	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
+  nil)
+
 ;; random circular cons graphs
 (deftest print.cons.random.2
   (loop repeat 50
-- 
GitLab