Commit 3d7573fd authored by pfdietz's avatar pfdietz

Begin adding printer tests.

parent 2fe0a9e3
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Feb 23 06:26:25 2004
;;;; Contains: Printing tests for integers
(in-package :cl-test)
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Feb 23 06:20:00 2004
;;;; Contains: Auxiliary functions and macros for printer tests
(in-package :cl-test)
(defmacro def-print-test (name form result &rest bindings)
`(deftest ,name
(equalt (let ,bindings
(with-standard-io-syntax (prin1 ,form)))
,result)
t))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment