Initial commit
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 13 Jul 2020 21:59:43 -0400 |
| parents |
(none) |
| 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)))