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
51138670
Commit
51138670
authored
Jul 11, 2004
by
pfdietz
Browse files
Begin adding tests for pprint-tab
parent
e54e24a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/pprint-tab.lsp
0 → 100644
View file @
51138670
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Jul 10 14:08:08 2004
;;;; Contains: Tests of PPRINT-TAB
(in-package :cl-test)
(compile-and-load "printer-aux.lsp")
;;; No effect in a non-pprint stream
(def-pprint-test pprint-tab.non-pretty.1
(with-output-to-string
(*standard-output*)
(write "A")
(pprint-tab :line 10 3)
(write "B"))
"AB")
(def-pprint-test pprint-tab.non-pretty.2
(with-output-to-string
(*standard-output*)
(write "A")
(pprint-tab :section 10 3)
(write "B"))
"AB")
(def-pprint-test pprint-tab.non-pretty.3
(with-output-to-string
(*standard-output*)
(write "A")
(pprint-tab :line-relative 10 3)
(write "B"))
"AB")
(def-pprint-test pprint-tab.non-pretty.4
(with-output-to-string
(*standard-output*)
(write "A")
(pprint-tab :section-relative 10 3)
(write "B"))
"AB")
(def-ppblock-test pprint-tab.non-pretty.5
(progn (write "A") (pprint-tab :line 10 3) (write "B"))
"AB"
:pretty nil)
(def-ppblock-test pprint-tab.non-pretty.6
(progn (write "A") (pprint-tab :section 10 3) (write "B"))
"AB"
:pretty nil)
(def-ppblock-test pprint-tab.non-pretty.7
(progn (write "A") (pprint-tab :line-relative 10 3) (write "B"))
"AB"
:pretty nil)
(def-ppblock-test pprint-tab.non-pretty.8
(progn (write "A") (pprint-tab :section-relative 10 3) (write "B"))
"AB"
:pretty nil)
;;; nil designates *standard-output*
(def-ppblock-test pprint-tab.nil.1
(progn (write "A")
(pprint-tab :line 10 1 nil)
(write "B"))
"A B")
;;; t designates *terminal-io*
(def-pprint-test pprint-tab.t.1
(with-output-to-string
(os)
(with-input-from-string
(is "")
(with-open-stream
(*terminal-io* (make-two-way-stream is os))
(pprint-logical-block
(*terminal-io* nil)
(write "A" :stream t)
(pprint-tab :line 10 1 t)
(write "B" :stream t)))))
"A B")
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