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

Added tests for ~I format directive.

parent d5837c39
No related branches found
No related tags found
No related merge requests found
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Aug 21 07:01:36 2004
;;;; Contains: Tests for the ~I format directive
(in-package :cl-test)
(compile-and-load "printer-aux.lsp")
;;; pprint-indent.9
(def-pprint-test format.i.1
(format nil "~<M~3:i~:@_M~:>" '(M M))
"M
M")
;;; See pprint-indent.10
(def-pprint-test format.i.2
(format nil "~:<M~1:I~@:_M~:>" '(M M))
"(M
M)")
;;; See pprint-indent.11
(def-pprint-test format.i.3
(format nil "~<(~;M~-1:i~:@_M~;)~:>" '(M M))
"(M
M)")
(def-pprint-test format.i.4
(format nil "~:<M~-1:i~:@_M~:>" '(M M))
"(M
M)")
(def-pprint-test format.i.5
(format nil "~<(~;M~:I~:@_M~;)~:>" '(M M))
"(M
M)")
(def-pprint-test format.i.6
(format nil "~<(~;M~v:i~:@_M~;)~:>" '(nil))
"(M
M)")
(def-pprint-test format.i.7
(format nil "~:<M~-2:i~:@_M~:>" '(M M))
"(M
M)")
(def-pprint-test format.i.8
(format nil "~<M~:i~:@_M~:>" '(M M))
"M
M")
;;; See pprint-indent.13
(def-pprint-test format.i.9
(format nil "~<MMM~I~:@_MMMMM~:>" '(M M))
"MMM
MMMMM")
(def-pprint-test format.i.10
(format nil "~:<MMM~I~:@_MMMMM~:>" '(M M))
"(MMM
MMMMM)")
(def-pprint-test format.i.11
(format nil "~<MMM~1I~:@_MMMMM~:>" '(M M))
"MMM
MMMMM")
(def-pprint-test format.i.12
(format nil "XXX~<MMM~1I~:@_MMMMM~:>" '(M M))
"XXXMMM
MMMMM")
(def-pprint-test format.i.13
(format nil "XXX~<MMM~I~:@_MMMMM~:>" '(M M))
"XXXMMM
MMMMM")
(def-pprint-test format.i.14
(format nil "XXX~<MMM~-1I~:@_MMMMM~:>" '(M M))
"XXXMMM
MMMMM")
(def-pprint-test format.i.15
(format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(nil))
"XXXMMM
MMMMM")
(def-pprint-test format.i.16
(format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(2))
"XXXMMM
MMMMM")
......@@ -31,6 +31,4 @@
;;; 22.3.5
(load "format-underscore.lsp")
(load "format-logical-block.lsp")
(load "format-i.lsp")
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