test/tests.lisp @ 3b7144885d7e

Make the test scaffolding actually work
author Steve Losh <steve@stevelosh.com>
date Sun, 06 Nov 2016 12:35:34 +0000
parents 96febb435c83
children 8a0ab75bd0df
(in-package :digraph-test)

(defmacro define-test (name &body body)
  `(test ,name
    (let ((*package* ,*package*))
      ,@body)))

(defun run-tests ()
  (1am:run))

(define-test foo
  (is (= 1 2)))