X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fclasses.lisp;h=964b8db5088b12bbf6c3507dfbeb95dc2fcfdb7d;hb=3074223314aa4655a09fb0654c83563782e6e7d2;hp=d2dcbdda7eb9c678c1e7c76d882c8f2912e9db46;hpb=7caced9155e32d2e04db2f574057c33f3fda85ab;p=fiveam.git

diff --git a/src/classes.lisp b/src/classes.lisp
index d2dcbdd..964b8db 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -41,7 +41,9 @@ suite) in the suite."))
 
 (defclass test-case (testable-object)
   ((test-lambda :initarg :test-lambda :accessor test-lambda
-		:documentation "The function to run."))
+		:documentation "The function to run.")
+   (runtime-package :initarg :runtime-package :accessor runtime-package
+                    :documentation "By default it stores *package* from the time this test was defined (macroexpanded)."))
   (:documentation "A test case is a single, named, collection of
 checks.