Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
a008e736
Commit
a008e736
authored
Jul 13, 2004
by
pfdietz
Browse files
Add TODOs for more pprint-newline tests.
parent
5641d53a
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/pprint-newline.lsp
View file @
a008e736
...
...
@@ -64,7 +64,7 @@ A A A "
;;; :linear
(def-pp
rint-newline
-test pprint-newline.linear.1
(def-pp
block
-test pprint-newline.linear.1
(progn
(dotimes (i 2) (write "A ") (pprint-newline :fill))
(write "B ") (pprint-newline :linear)
...
...
@@ -73,7 +73,7 @@ A A A "
A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.2
(def-pp
block
-test pprint-newline.linear.2
(progn
(dotimes (i 2) (write "A ") (pprint-newline :fill))
(write "B ") (pprint-newline :linear)
...
...
@@ -85,24 +85,24 @@ C C D
A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.3
(def-pp
block
-test pprint-newline.linear.3
(dotimes (i 4) (write "A ") (pprint-newline :linear))
"A A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.4
(def-pp
block
-test pprint-newline.linear.4
(dotimes (i 4) (write "A ") (pprint-newline :linear))
"A A A A "
:margin 10
:miser 10)
(def-pp
rint-newline
-test pprint-newline.linear.5
(def-pp
block
-test pprint-newline.linear.5
(dotimes (i 10) (write "A ") (pprint-newline :linear))
"A A A A A A A A A A "
:margin 10
:pretty nil)
(def-pp
rint-newline
-test pprint-newline.linear.6
(def-pp
block
-test pprint-newline.linear.6
(dotimes (i 4) (write "A ") (pprint-newline :linear))
"A
A
...
...
@@ -111,7 +111,7 @@ A
"
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.7
(def-pp
block
-test pprint-newline.linear.7
(progn
(dotimes (i 4) (write "A ") (pprint-newline :linear))
(terpri)
...
...
@@ -128,7 +128,7 @@ A
"
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.8
(def-pp
block
-test pprint-newline.linear.8
(progn
(pprint-logical-block (*standard-output* nil)
(dotimes (i 4)
...
...
@@ -143,7 +143,7 @@ A
A A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.linear.9
(def-pp
block
-test pprint-newline.linear.9
(dotimes (i 10) (write "A ") (let ((*print-pretty* nil)) (pprint-newline :linear)))
"A A A A A A A A A A "
:margin 10)
...
...
@@ -162,24 +162,24 @@ A A A A "
;;; :miser
(def-pp
rint-newline
-test pprint-newline.miser.1
(def-pp
block
-test pprint-newline.miser.1
(dotimes (i 10) (write "A ") (pprint-newline :miser))
"A A A A A A A A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.miser.2
(def-pp
block
-test pprint-newline.miser.2
(dotimes (i 10) (write "A ") (pprint-newline :miser))
"A A A A A A A A A A "
:margin 10
:miser 0)
(def-pp
rint-newline
-test pprint-newline.miser.3
(def-pp
block
-test pprint-newline.miser.3
(dotimes (i 10) (write "A ") (pprint-newline :miser))
"A A A A A A A A A A "
:margin 10
:miser 9)
(def-pp
rint-newline
-test pprint-newline.miser.4
(def-pp
block
-test pprint-newline.miser.4
(dotimes (i 10) (write "A ") (pprint-newline :miser))
"A
A
...
...
@@ -195,14 +195,14 @@ A
:margin 10
:miser 10)
(def-pp
rint-newline
-test pprint-newline.miser.5
(def-pp
block
-test pprint-newline.miser.5
(dotimes (i 10) (write "A ") (pprint-newline :miser))
"A A A A A A A A A A "
:margin 10
:miser 10
:pretty nil)
(def-pp
rint-newline
-test pprint-newline.miser.6
(def-pp
block
-test pprint-newline.miser.6
(progn
(terpri)
(write "A")
...
...
@@ -213,7 +213,7 @@ A
:margin 20
:miser 20)
(def-pp
rint-newline
-test pprint-newline.miser.7
(def-pp
block
-test pprint-newline.miser.7
(progn
(pprint-newline :miser)
(write "A")
...
...
@@ -224,7 +224,7 @@ A
:margin 20
:miser 20)
(def-pp
rint-newline
-test pprint-newline.miser.8
(def-pp
block
-test pprint-newline.miser.8
(progn
(write "AAAA ")
(pprint-newline :linear)
...
...
@@ -236,7 +236,7 @@ A A A A "
:margin 10
:miser 8)
(def-pp
rint-newline
-test pprint-newline.miser.9
(def-pp
block
-test pprint-newline.miser.9
(progn
(write "AAAA ")
(pprint-newline :fill)
...
...
@@ -248,7 +248,7 @@ A A A A "
:margin 10
:miser 8)
(def-pp
rint-newline
-test pprint-newline.miser.10
(def-pp
block
-test pprint-newline.miser.10
(pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")")
(write "A")
(pprint-newline :miser)
...
...
@@ -259,7 +259,7 @@ A A A A "
:margin 20
:miser 20)
(def-pp
rint-newline
-test pprint-newline.miser.11
(def-pp
block
-test pprint-newline.miser.11
(pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")")
(write "A")
(pprint-newline :miser)
...
...
@@ -270,7 +270,7 @@ A A A A "
:margin 20
:miser 19)
(def-pp
rint-newline
-test pprint-newline.miser.12
(def-pp
block
-test pprint-newline.miser.12
(pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")")
(write "A")
(pprint-newline :miser)
...
...
@@ -294,13 +294,13 @@ A A A A "
;;; :fill
(def-pp
rint-newline
-test pprint-newline.fill.1
(def-pp
block
-test pprint-newline.fill.1
(dotimes (i 10) (write "A ") (pprint-newline :fill))
"A A A A A
A A A A A "
:margin 10)
(def-pp
rint-newline
-test pprint-newline.fill.2
(def-pp
block
-test pprint-newline.fill.2
(dotimes (i 10) (write "A ") (pprint-newline :fill))
"A A A
A A A
...
...
@@ -308,7 +308,7 @@ A A A
A "
:margin 6)
(def-pp
rint-newline
-test pprint-newline.fill.3
(def-pp
block
-test pprint-newline.fill.3
(dotimes (i 10) (write "A ") (pprint-newline :fill))
"A A A
A A A
...
...
@@ -316,14 +316,14 @@ A A A
A "
:margin 7)
(def-pp
rint-newline
-test pprint-newline.fill.4
(def-pp
block
-test pprint-newline.fill.4
(dotimes (i 10) (write "A ") (pprint-newline :fill))
"A A A A A
A A A A A "
:margin 10
:miser 9)
(def-pp
rint-newline
-test pprint-newline.fill.5
(def-pp
block
-test pprint-newline.fill.5
(dotimes (i 10) (write "A ") (pprint-newline :fill))
"A
A
...
...
@@ -339,7 +339,7 @@ A
:margin 10
:miser 10)
(def-pp
rint-newline
-test pprint-newline.fill.6
(def-pp
block
-test pprint-newline.fill.6
(dotimes (i 5)
(write '(A B))
(write #\Space)
...
...
@@ -349,7 +349,7 @@ A
(A B) "
:margin 12)
(def-pp
rint-newline
-test pprint-newline.fill.7
(def-pp
block
-test pprint-newline.fill.7
(dolist (x '(A (A B) (A A A A A A A A) X (C D) (E F)))
(pprint-fill nil x)
(write #\Space)
...
...
@@ -361,7 +361,7 @@ X (C D)
(E F) "
:margin 12)
(def-pp
rint-newline
-test pprint-newline.fill.8
(def-pp
block
-test pprint-newline.fill.8
(dotimes (i 5)
(write '(A B) :pretty nil)
(write #\Space)
...
...
@@ -396,7 +396,7 @@ X (C D)
;;; :mandatory
(def-pp
rint-newline
-test pprint-newline.mandatory.1
(def-pp
block
-test pprint-newline.mandatory.1
(dotimes (i 4) (write "A ") (pprint-newline :mandatory))
"A
A
...
...
@@ -404,7 +404,7 @@ A
A
")
(def-pp
rint-newline
-test pprint-newline.mandatory.2
(def-pp
block
-test pprint-newline.mandatory.2
(dotimes (i 4) (write "A ") (pprint-newline :mandatory))
"A
A
...
...
@@ -413,7 +413,7 @@ A
"
:margin 10)
(def-pp
rint-newline
-test pprint-newline.mandatory.3
(def-pp
block
-test pprint-newline.mandatory.3
(progn
(write "A ")
(pprint-newline :mandatory)
...
...
@@ -422,12 +422,12 @@ A
A "
:margin 1)
(def-pp
rint-newline
-test pprint-newline.mandatory.4
(def-pp
block
-test pprint-newline.mandatory.4
(dotimes (i 4) (write "A ") (pprint-newline :mandatory))
"A A A A "
:pretty nil)
(def-pp
rint-newline
-test pprint-newline.mandatory.5
(def-pp
block
-test pprint-newline.mandatory.5
(pprint-logical-block
(*standard-output* nil :prefix "<<<" :suffix ">>>")
(dotimes (i 4) (write "A ") (pprint-newline :mandatory))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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