diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index a156e07c6672ed1c69a5cd716b327b24e5d48001..17a40e8bf55b3ca2a98b82110421bbe7c179c22b 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