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

diff --git a/src/classes.lisp b/src/classes.lisp
index ada97da..964b8db 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -25,7 +25,7 @@
   ((tests :accessor tests :initform (make-hash-table :test 'eql)
 	  :documentation "The hash table mapping names to test
 	  objects in this suite. The values in this hash table
-	  can be eitehr test-cases of other test-suites."))
+	  can be either test-cases or other test-suites."))
   (:documentation "A test suite is a collection of tests or test suites.
 
 Test suites serve to organize tests into groups so that the
@@ -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.