Skip to content
Snippets Groups Projects
Commit 54e36b45 authored by pfdietz's avatar pfdietz
Browse files

Two more backquote related tests for cases that might come out as BQ-LIST*

parent f8058fbe
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment