common-lisp/unit-testing.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

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