From 51138670c3562e3830a441a686a6b3eaacf00e36 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 11 Jul 2004 10:37:02 +0000 Subject: [PATCH] Begin adding tests for pprint-tab --- ansi-tests/pprint-tab.lsp | 96 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 96 insertions(+) create mode 100644 ansi-tests/pprint-tab.lsp diff --git a/ansi-tests/pprint-tab.lsp b/ansi-tests/pprint-tab.lsp new file mode 100644 index 00000000..65abb96a --- /dev/null +++ b/ansi-tests/pprint-tab.lsp @@ -0,0 +1,96 @@ +;-*- 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") + + + + + + + + + -- GitLab