Supply slightly less cryptic error messages when mispelling the name of a fixture...

[fiveam.git] / src / fixture.lisp

diff --git a/src/fixture.lisp b/src/fixture.lisp
index 325933c..32ca2dd 100644 (file)
--- a/src/fixture.lisp
+++ b/src/fixture.lisp
@@ -33,6 +33,9 @@ See Also: WITH-FIXTURE
   "Insert BODY into the fixture named FIXTURE-NAME.
 
 See Also: DEF-FIXTURE"
+  (assert (get-fixture fixture-name)
+          (fixture-name)
+          "Unknown fixture ~S." fixture-name)
   (destructuring-bind (largs &rest lbody) (get-fixture fixture-name)
     `(macrolet ((&body () '(progn ,@body)))
        (funcall (lambda ,largs ,@lbody) ,@args))))