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

Begin adding tests for pprint-tab

parent e54e24a4
No related branches found
No related tags found
No related merge requests found
;-*- 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")
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