Skip to content
Snippets Groups Projects
Commit 9989eb41 authored by pfdietz's avatar pfdietz
Browse files

This file had been sitting around for a while. Add it to the repository now,...

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.
parent e57a02cc
No related branches found
No related tags found
No related merge requests found
;-*- 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))
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