Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
c3f81f85
Commit
c3f81f85
authored
Jun 26, 2004
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Load pprint-dispatch tests, add some pprint-fill tests
parent
ad53c44a
Changes
3
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
95 additions
and
1 deletion
+95
-1
ansi-tests/load-printer.lsp
ansi-tests/load-printer.lsp
+2
-0
ansi-tests/makefile
ansi-tests/makefile
+1
-1
ansi-tests/pprint-fill.lsp
ansi-tests/pprint-fill.lsp
+92
-0
No files found.
ansi-tests/load-printer.lsp
View file @
c3f81f85
...
...
@@ -25,3 +25,5 @@
(load "print-pathname.lsp")
(load "print-structure.lsp")
(load "printer-control-vars.lsp")
(load "pprint-dispatch.lsp")
(load "pprint-fill.lsp")
\ No newline at end of file
ansi-tests/makefile
View file @
c3f81f85
...
...
@@ -31,7 +31,7 @@ random-test:
clean
:
@
rm
-f
test.out
*
.cls
*
.fasl
*
.o
*
.so
*
~
*
.fn
*
.x86f
*
.fasl
*
.ufsl
*
.abcl
*
.fas
*
.lib
\#
*
\#
@
rm
-rf
scratch/
@
rm
-f
foo.txt foo.lsp file-that-was-renamed.txt tmp.dat temp.dat
@
rm
-f
foo.txt foo.lsp file-that-was-renamed.txt tmp.dat t
mp2.dat t
emp.dat
@
rm
-f
gazonk
*
@
rm
-rf
TMP/
ansi-tests/pprint-fill.lsp
0 → 100644
View file @
c3f81f85
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Fri Jun 25 22:03:01 2004
;;;; Contains: Tests of PPRINT-FILL
(in-package :cl-test)
;;; When printing a non-list, the result is the same as calling WRITE."
(deftest pprint-fill.1
(my-with-standard-io-syntax
(let ((*print-pretty* t)
(*print-readably* nil))
(loop for obj in *mini-universe*
nconc
(and (not (listp obj))
(let ((s1 (write-to-string obj))
(s2 (with-output-to-string (s) (assert (null (pprint-fill s obj))))))
(unless (equal s1 s2)
(list (list obj s1 s2))))))))
nil)
(deftest pprint-fill.2
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil))
(loop for obj in *mini-universe*
nconc
(and (not (listp obj))
(let ((s1 (write-to-string obj))
(s2 (with-output-to-string (s) (assert (null (pprint-fill s obj))))))
(unless (equal s1 s2)
(list (list obj s1 s2))))))))
nil)
(deftest pprint-fill.3
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil)
(*print-right-margin* 100))
(with-output-to-string
(s)
(assert (null (pprint-fill s '(cl-user::|A|)))))))
"(A)")
(deftest pprint-fill.4
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil)
(*print-right-margin* 100))
(with-output-to-string
(s)
(assert (null (pprint-fill s '(cl-user::|A|) t))))))
"(A)")
(deftest pprint-fill.5
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil)
(*print-right-margin* 100))
(with-output-to-string
(s)
(assert (null (pprint-fill s '(cl-user::|A|) nil))))))
"A")
(deftest pprint-fill.6
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil)
(*print-right-margin* 100))
(with-output-to-string
(s)
(assert (null (pprint-fill s '(1 2 3 4 5)))))))
"(1 2 3 4 5)")
(deftest pprint-fill.7
(my-with-standard-io-syntax
(let ((*print-pretty* nil)
(*print-readably* nil)
(*print-right-margin* 100))
(with-output-to-string
(s)
(assert (null (pprint-fill s '((1) (2) #(3) "abc" 5) nil))))))
"(1) (2) #(3) \"abc\" 5")
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