From 54e36b452e46355ee95b36e4c22fd9ae2bb0d75b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 7 Jun 2004 12:36:24 +0000 Subject: [PATCH] Two more backquote related tests for cases that might come out as BQ-LIST* --- ansi-tests/print-cons.lsp | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp index ae0125e0..4b91a671 100644 --- a/ansi-tests/print-cons.lsp +++ b/ansi-tests/print-cons.lsp @@ -137,6 +137,36 @@ nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) nil) +(deftest print.backquote.random.10 + (let ((x '`#(,a , .b))) + (loop + repeat 20 + nconc (randomly-check-readability x :test #'is-similar))) + nil) + +(deftest print.backquote.random.11 + (let ((x '`#(,a , @b))) + (loop + repeat 20 + nconc (randomly-check-readability x :test #'is-similar))) + nil) + +(deftest print.backquote.random.12 + (let ((x '`#(,a ,b c))) + (and (consp x) + (symbolp (car x)) + (loop + repeat 20 + nconc (randomly-check-readability (list (car x)) :test #'is-similar)))) + nil) + +(deftest print.backquote.random.13 + (let ((x '`#(,a ,b c))) + (loop + repeat 20 + nconc (randomly-check-readability x :test #'is-similar))) + nil) + ;; random circular cons graphs (deftest print.cons.random.2 (loop repeat 50 -- GitLab