From 9989eb419f5d72d9daad5636aa43eb65a400e253 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 31 May 2004 11:50:40 +0000 Subject: [PATCH] This file had been sitting around for a while. Add it to the repository now, but don't load it until there are some actual tests. --- ansi-tests/format.lsp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 ansi-tests/format.lsp diff --git a/ansi-tests/format.lsp b/ansi-tests/format.lsp new file mode 100644 index 00000000..00f77067 --- /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)) -- GitLab