18 lines
332 B
Common Lisp
18 lines
332 B
Common Lisp
;;; cl-scopes/testing
|
|
|
|
;;;; simple testing library
|
|
|
|
(defpackage :scopes/testing
|
|
(:use :common-lisp)
|
|
(:export #:test-suite #:assert-eql #:result))
|
|
|
|
(in-package :scopes/testing)
|
|
|
|
(defun test-suite ()
|
|
(vector nil))
|
|
|
|
(defun assert-eql (tst have wanted)
|
|
(push (eql have wanted) (elt tst 0)))
|
|
|
|
(defun result (tst)
|
|
(elt tst 0))
|