tvl-depot/common-lisp/unit-testing.lisp

14 lines
207 B
Common Lisp
Raw Normal View History

(in-package #:cl-user)
(defpackage #:my-test
(:documentation "Unit testing in Common Lisp.")
(:use #:cl))
(in-package #:my-test)
(plan 3)
(ok (not (find 4 '(1 2 3))))
(is 4 4)
(isnt 1 #\1)
(finalize)