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

diff --git a/src/classes.lisp b/src/classes.lisp
index d2dcbdd..8f11102 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -15,7 +15,18 @@
 	   dependencies, have passed. NIL - this test
 	   failed (either it failed or its dependecies weren't
 	   met. :circular this test has a circular depenedency
-	   and was skipped.")))
+	   and was skipped.")
+   (profiling-info :accessor profiling-info
+                   :initform nil
+                   :documentation "An object representing how
+                   much time and memory where used by the
+                   test.")
+   (collect-profiling-info :accessor collect-profiling-info
+                           :initarg :collect-profiling-info
+                           :initform nil
+                           :documentation "When T profiling
+                           information will be collected when the
+                           test is run.")))
 
 (defmethod print-object ((test testable-object) stream)
   (print-unreadable-object (test stream :type t :identity t)
@@ -41,7 +52,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.