;;; 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)))
    (sct:result tst)))