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