;;;; collection of checks which can be run and a test suite is a named
;;;; collection of tests and test suites.
+(defvar *suite* nil
+ "The current test suite object")
+
(defvar *test*
(make-hash-table :test 'eql)
"Lookup table mapping test (and test suite)
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)))