tests/tests.lisp

   1 (defpackage sane-tests
   2   (:use :cl :lisp-unit :sane)
   3   (:export :do-tests))
   4
   5 (in-package :sane-tests)
   6
   7 (defun do-tests ()
   8   (run-all-tests :sane-tests))
   9
  10 (define-test with-init
  11   (assert-equal 42
  12                 (with-init nil 42))
  13   (assert-equal 1
  14                 (car (with-init v v))))