;;;; collection of checks which can be run and a test suite is a named
;;;; collection of tests and test suites.
+(declaim (special *suite*))
+
(defvar *test*
(make-hash-table :test 'eql)
"Lookup table mapping test (and test suite)
(remhash key *test*))
(defun test-names ()
- (loop for test being the hash-keys of *test*
- collect test))
+ (hash-table-keys *test*))
(defmacro test (name &body body)
"Create a test named NAME. If NAME is a list it must be of the
FIXTURE specifies a fixture to wrap the body in.
If PROFILE is T profiling information will be collected as well."
- (simple-style-warning "~A is OBSOLETE! Use ~A instead."
- 'test 'def-test)
(destructuring-bind (name &rest args)
(ensure-list name)
`(def-test ,name (,@args) ,@body)))