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