format-newline.lsp 535 Bytes
Newer Older
1 2 3 4 5 6 7 8
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Nov 27 08:07:16 2004
;;;; Contains: Tests of ~<newline>

(in-package :cl-test)
(compile-and-load "printer-aux.lsp")

9 10 11
(def-format-test format.newline.1
  (concatenate 'string "~" (string #\Newline) "   X")
  nil "X")
12

13 14 15
(def-format-test format.newline.2
  (concatenate 'string "A~:" (string #\Newline) " X")
  nil "A X")
16

17 18 19
(def-format-test format.newline.3
  (concatenate 'string "A~@" (string #\Newline) " X")
  nil #.(concatenate 'string "A" (string #\Newline) "X"))
20