Sketch out the new implementation
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 22 Jul 2020 20:17:30 -0400 |
| parents |
a2712b3d3b16 |
| children |
4c59ba2362d8 |
(in-package :jarl.test)
;;;; Utils --------------------------------------------------------------------
(defmacro define-test (name &body body)
`(test ,(intern (concatenate 'string (symbol-name 'test-) (symbol-name name)))
(let ((*package* ,*package*))
,@body)))
(defun run-tests ()
(1am:run))
;;;; Tests --------------------------------------------------------------------
(define-test noop
(is (= 1 1)))