Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
48a4d10f
Commit
48a4d10f
authored
Jun 07, 2004
by
pfdietz
Browse files
Fix some typos
parent
36e28db2
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/print-cons.lsp
View file @
48a4d10f
...
...
@@ -8,44 +8,51 @@
(in-package :cl-test)
(deftest print.cons.1
(with-standard-io-syntax
(write-to-string '(|A|) :case :upcase :pretty nil :escape nil :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(|A|) :case :upcase :pretty nil :escape nil)))
"(A)")
(deftest print.cons.2
(with-standard-io-syntax
(write-to-string '(|A| |B|) :case :upcase :pretty nil :escape nil :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(|A| |B|) :case :upcase :pretty nil :escape nil)))
"(A B)")
(deftest print.cons.3
(with-standard-io-syntax
(write-to-string (cons '|A| '|B|) :case :upcase :pretty nil :escape nil :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string (cons '|A| '|B|) :case :upcase :pretty nil :escape nil)))
"(A . B)")
(deftest print.cons.4
(with-standard-io-syntax
(write-to-string (let ((s '#:|X|)) (cons s s)) :case :upcase :pretty nil :escape t :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string (let ((s '#:|X|)) (cons s s)) :case :upcase :pretty nil :escape t)))
"(#:X . #:X)")
(deftest print.cons.5
(with-standard-io-syntax
(write-to-string (let ((s '#:|X|)) (cons s s)) :case :upcase :pretty nil :escape t :circle t :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string (let ((s '#:|X|)) (cons s s)) :case :upcase :pretty nil :escape t :circle t)))
"(#1=#:X . #1#)")
(deftest print.cons.6
(with-standard-io-syntax
(write-to-string (let ((s1 (make-symbol "X"))
(s2 (make-symbol "X")))
(list s1 s2 s1 s2))
:case :upcase :pretty nil :escape t :circle t :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string (let ((s1 (make-symbol "X"))
(s2 (make-symbol "X")))
(list s1 s2 s1 s2))
:case :upcase :pretty nil :escape t :circle t)))
"(#1=#:X #2=#:X #1# #2#)")
(deftest print.cons.7
(with-standard-io-syntax
(write-to-string (let ((a (list 17 nil)))
(setf (cdr a) a)
a)
:circle t :pretty nil :escape nil :readably nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string (let ((a (list 17 nil)))
(setf (cdr a) a)
a)
:circle t :pretty nil :escape nil)))
"#1=(17 . #1#)")
;;; Random printing
...
...
@@ -63,7 +70,7 @@
(let ((x '`(a ,b ,@c (d . ,e) ,.f #(1 2 ,p ,@q ,.r s) g)))
(loop
repeat 20
nconc (randomly-check-readability x)))
nconc (randomly-check-readability x
:test #'is-similar
)))
nil)
;; random circular cons graphs
...
...
@@ -85,79 +92,85 @@
;;; Printing with *print-length*
(deftest print.cons.length.1
(with-standard-io-syntax
(write-to-string '(a) :length 0 :readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(a) :length 0 :pretty nil :escape nil)))
"(...)")
(deftest print.cons.length.2
(with-standard-io-syntax
(write-to-string '(81) :length 1 :readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(81) :length 1 :pretty nil :escape nil)))
"(81)")
(deftest print.cons.length.3
(with-standard-io-syntax
(write-to-string '(4 . 8) :length 1 :readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(4 . 8) :length 1 :pretty nil :escape nil)))
"(4 . 8)")
(deftest print.cons.length.4
(with-standard-io-syntax
(write-to-string '(4 8) :length 1 :readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(4 8) :length 1 :pretty nil :escape nil)))
"(4 ...)")
(deftest print.cons.length.5
(with-standard-io-syntax
(write-to-string '(a b c d e f g h i j k l m n o p)
:case :downcase :length 10
:readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(a b c d e f g h i j k l m n o p)
:case :downcase :length 10
:pretty nil :escape nil)))
"(a b c d e f g h i j ...)")
(deftest print.cons.length.6
(with-standard-io-syntax
(write-to-string '(((((((0)))))))
:case :downcase :length 3
:readably nil :pretty nil :escape nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(((((((0)))))))
:case :downcase :length 3
:pretty nil :escape nil)))
"(((((((0)))))))")
;;; Printing with *print-level*
(deftest print.cons.level.1
(with-standard-io-syntax
(
write-to-string '(a
)
:case :downcase :level 0
:readably nil :escape nil
:pretty nil))
(
my-
with-standard-io-syntax
(
let ((*print-readably* nil)
)
(write-to-string '(a)
:case :downcase :level 0
:escape nil
:pretty nil))
)
"#")
(deftest print.cons.level.2
(with-standard-io-syntax
(
write-to-string '(a
)
:case :downcase :level 1
:readably nil :escape nil
:pretty nil))
(
my-
with-standard-io-syntax
(
let ((*print-readably* nil)
)
(write-to-string '(a)
:case :downcase :level 1
:escape nil
:pretty nil))
)
"(a)")
(deftest print.cons.level.3
(with-standard-io-syntax
(
write-to-string '((a
))
:case :downcase :level 1
:readably nil :escape nil
:pretty nil))
(
my-
with-standard-io-syntax
(
let ((*print-readably* nil
))
(write-to-string '((a))
:case :downcase :level 1
:escape nil
:pretty nil))
)
"(#)")
(deftest print.cons.level.4
(with-standard-io-syntax
(
write-to-string '(a
)
:case :downcase :level 2
:readably nil :escape nil
:pretty nil))
(
my-
with-standard-io-syntax
(
let ((*print-readably* nil)
)
(write-to-string '(a)
:case :downcase :level 2
:escape nil
:pretty nil))
)
"(a)")
(deftest print.cons.level.5
(with-standard-io-syntax
(write-to-string '(#(a) #*1101 "abc")
:case :downcase :level 1
:readably nil :pretty nil))
(my-with-standard-io-syntax
(let ((*print-readably* nil))
(write-to-string '(#(a) #*1101 "abc")
:case :downcase :level 1
:pretty nil)))
"(# #*1101 \"abc\")")
ansi-tests/printer-aux.lsp
View file @
48a4d10f
...
...
@@ -8,7 +8,7 @@
(defmacro def-print-test (name form result &rest bindings)
`(deftest ,name
(equalpt
(with-standard-io-syntax
(
my-
with-standard-io-syntax
(let ((*print-readably* nil))
(let ,bindings
(with-output-to-string (*standard-output*) (prin1 ,form)))))
...
...
@@ -37,7 +37,7 @@
(debug *random-read-check-debug*))
(declare (type function test))
;; Generate random printer-control values
(with-standard-io-syntax
(
my-
with-standard-io-syntax
(let ((*print-array* (coin))
(*print-base* (+ 2 (random 34)))
(*print-radix* (coin))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment