From: Marco Baringer <mb@bese.it>
Date: Sat, 10 Dec 2005 14:41:19 +0000 (+0100)
Subject: Supply slightly less cryptic error messages when mispelling the name of a fixture... 
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3318adf2a6ee1a055fff9db1ab2ba9e59fa90792;p=fiveam.git

Supply slightly less cryptic error messages when mispelling the name of a fixture passed to with-fixture
---

diff --git a/src/fixture.lisp b/src/fixture.lisp
index 325933c..32ca2dd 100644
--- 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))))