diff --git a/ansi-tests/format.lsp b/ansi-tests/format.lsp new file mode 100644 index 0000000000000000000000000000000000000000..00f770675ed65476de495f43e44ecb22a14b2300 --- /dev/null +++ b/ansi-tests/format.lsp @@ -0,0 +1,15 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Mon Feb 23 05:08:17 2004 +;;;; Contains: Tests of FORMAT + +(in-package :cl-test) + + +(defun def-format-test (name args result) + `(deftest ,name + (equalt + (with-standard-io-syntax + (with-output-to-string (s) (format s ,@args))) + result) + t))