Skip to content
Snippets Groups Projects
Commit 4a04ca09 authored by pfdietz's avatar pfdietz
Browse files

Moved backquote printing tests to their own file

parent b74f61ae
No related branches found
No related tags found
No related merge requests found
......@@ -17,6 +17,7 @@
(load "print-symbols.lsp")
(load "print-strings.lsp")
(load "print-cons.lsp")
(load "print-backquote.lsp")
(load "print-bit-vector.lsp")
(load "print-vector.lsp")
(load "print-array.lsp")
......
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Jun 10 19:31:01 2004
;;;; Contains: Tests of printing of backquote forms (and fragments thereof)
(in-package :cl-test)
(compile-and-load "printer-aux.lsp")
(deftest print.backquote.random.1
(let* ((x '`(a ,b ,@c (d . ,e) ,.f #(1 2 ,p ,@q ,.r s) g))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability y :test #'is-similar))
(and (not (equal x y)) (list :modified x y))))
nil)
(deftest print.backquote.random.2
(let* ((x '`(,@a ,@b))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability y :test #'is-similar))
(and (not (is-similar x y)) (list :modified x y))))
nil)
(deftest print.backquote.random.3
(let* ((x '`(,.a ,.b))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability y :test #'is-similar))
(and (not (is-similar x y)) (list :modified x y))))
nil)
(deftest print.backquote.random.4
(let* ((x '`(,a ,b))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability y :test #'is-similar))
(and (not (is-similar x y)) (list :modified x y))))
nil)
(deftest print.backquote.random.5
(let* ((x '`#(,a ,b))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability y :test #'is-similar))
(and (not (is-similar x y)) (list :modified x y))))
nil)
(deftest print.backquote.random.6
(let ((x '`(,@a ,@b)))
(and (consp x)
(symbolp (car 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)
(symbolp (car 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)
(symbolp (car 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)
(symbolp (car x))
(loop
repeat 20
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))
(y (copy-tree x)))
(or
(loop
repeat 20
nconc (randomly-check-readability x :test #'is-similar))
(and (not (is-similar x y)) (list :modified x y))))
nil)
......@@ -66,107 +66,6 @@
10)
nil)
(deftest print.backquote.random.1
(let ((x '`(a ,b ,@c (d . ,e) ,.f #(1 2 ,p ,@q ,.r s) g)))
(loop
repeat 20
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)
(symbolp (car 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)
(symbolp (car 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)
(symbolp (car 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)
(symbolp (car x))
(loop
repeat 20
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