Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Don't put a literal suite object into a test form's macro expnsion.

Use either *SUITE* or (GET-TEST NAME)
  • Loading branch information...
commit 5c649363640c2060387ed91132791e52e2c52c11 1 parent 8e2b8ea
@segv segv authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/test.lisp
View
8 src/test.lisp
@@ -50,9 +50,9 @@ FIXTURE specifies a fixtrue to wrap the body in.
If PROFILE is T profiling information will be collected as well."
(let* ((tmp (gensym))
(suite-arg (getf (cdr (ensure-list name)) :suite tmp))
- (suite (cond
- ((eq tmp suite-arg) *suite*)
- (t (get-test suite-arg)))))
+ (suite-form (cond
+ ((eq tmp suite-arg) '*suite*)
+ (t `(get-test ',suite-arg)))))
(when (consp name)
(remf (cdr name) :suite))
(destructuring-bind (name &key depends-on (compile-at :run-time) fixture profile)
@@ -81,7 +81,7 @@ If PROFILE is T profiling information will be collected as well."
:description ,description
:depends-on ',depends-on
:collect-profiling-info ,profile))
- (setf (gethash ',name (tests (get-test ',(name suite)))) ',name)
+ (setf (gethash ',name (tests ,suite-form)) ',name)
(when *run-test-when-defined*
(run! ',name))
',name)))))
Please sign in to comment.
Something went wrong with that request. Please try again.