21 lines
482 B
Common Lisp
21 lines
482 B
Common Lisp
;;; cl-scopes/test/test-storage
|
|
|
|
;;;; testing facility for scopes/storage
|
|
|
|
(defpackage :scopes/test-storage
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:scs :scopes/storage)
|
|
(:sct :scopes/testing))
|
|
(:export #:run))
|
|
|
|
(in-package :scopes/test-storage)
|
|
|
|
(defun run ()
|
|
(let ((tst (sct:test-suite)))
|
|
(test-track tst)
|
|
(sct:result tst)))
|
|
|
|
(defun test-track (tst)
|
|
(let ((tr (make-instance 'scs:track)))
|
|
;(setf (scs:data tr) nil)
|
|
(sct:assert-eq tst (scs:data tr) nil)))
|