14 lines
207 B
Common Lisp
14 lines
207 B
Common Lisp
|
(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)
|