projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DEFVAR *SUITE* before used
[fiveam.git]
/
src
/
test.lisp
diff --git
a/src/test.lisp
b/src/test.lisp
index
f9377cf
..
c64d6a2
100644
(file)
--- a/
src/test.lisp
+++ b/
src/test.lisp
@@
-11,6
+11,9
@@
;;;; collection of checks which can be run and a test suite is a named
;;;; collection of tests and test suites.
;;;; 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)
(defvar *test*
(make-hash-table :test 'eql)
"Lookup table mapping test (and test suite)
@@
-57,8
+60,6
@@
depending on another.
FIXTURE specifies a fixture to wrap the body in.
If PROFILE is T profiling information will be collected as well."
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)))
(destructuring-bind (name &rest args)
(ensure-list name)
`(def-test ,name (,@args) ,@body)))