Commit c37d18bd authored by pfdietz's avatar pfdietz
Browse files

More backquote related printing tests

parent 48a4d10f
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment