hg.stevelosh.com > cl-losh

test/base.lisp @ c5fc3602d000 

Add do-file
author Steve Losh <steve@stevelosh.com>
date Thu, 08 Apr 2021 20:29:51 -0400
parents 566c907b762a
children 6bf064d46006 
(in-package :losh.test)


(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))