X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fclasses.lisp;h=fc4dc782e8cb45397557dcf6e51ecf24b7c534c6;hb=45089eaf6af05d0ef6ea046364dd4f41d070bed0;hp=0e7d836356808b39bd575aa5457f9ca23c626ee5;hpb=8e2b8ea5671d45cd1b3efdd037af289200e6e0a8;p=fiveam.git

diff --git a/src/classes.lisp b/src/classes.lisp
index 0e7d836..fc4dc78 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -1,21 +1,21 @@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
 
-(in-package :it.bese.FiveAM)
+(in-package :it.bese.fiveam)
 
 (defclass testable-object ()
-  ((name :initarg :name :accessor name 
-	 :documentation "A symbol naming this test object.")
+  ((name :initarg :name :accessor name
+         :documentation "A symbol naming this test object.")
    (description :initarg :description :accessor description :initform nil
-		:documentation "The textual description of this test object.")
+                :documentation "The textual description of this test object.")
    (depends-on :initarg :depends-on :accessor depends-on :initform nil
-	       :documentation "The list of AND, OR, NOT forms specifying when to run this test.")
+               :documentation "The list of AND, OR, NOT forms specifying when to run this test.")
    (status :initarg :status :accessor status :initform :unknown
-	   :documentation "A symbol specifying the current status
+           :documentation "A symbol specifying the current status
 	   of this test. Either: T - this test (and all its
 	   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.")
+	   met. :circular this test has a circular dependency
+	   and was skipped. Or :depends-not-satisfied or :resolving")
    (profiling-info :accessor profiling-info
                    :initform nil
                    :documentation "An object representing how
@@ -34,13 +34,9 @@
 
 (defclass test-suite (testable-object)
   ((tests :accessor tests :initform (make-hash-table :test 'eql)
-	  :documentation "The hash table mapping names to test
+          :documentation "The hash table mapping names to test
 	  objects in this suite. The values in this hash table
-	  can be either test-cases or other test-suites.")
-   (default-test-args :accessor default-test-args :initform '()
-                      :initarg :default-test-args
-                      :documentation "Arguments passed to TEST
-                      macro when using this suite."))
+	  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
@@ -56,7 +52,7 @@ 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
@@ -102,15 +98,15 @@ test-skipped result is added to the results."))
   ())
 
 ;; Copyright (c) 2002-2003, Edward Marco Baringer
-;; All rights reserved. 
-;; 
+;; All rights reserved.
+;;
 ;; Redistribution and use in source and binary forms, with or without
 ;; modification, are permitted provided that the following conditions are
 ;; met:
-;; 
+;;
 ;;  - Redistributions of source code must retain the above copyright
 ;;    notice, this list of conditions and the following disclaimer.
-;; 
+;;
 ;;  - Redistributions in binary form must reproduce the above copyright
 ;;    notice, this list of conditions and the following disclaimer in the
 ;;    documentation and/or other materials provided with the distribution.
@@ -118,7 +114,7 @@ test-skipped result is added to the results."))
 ;;  - Neither the name of Edward Marco Baringer, nor BESE, nor the names
 ;;    of its contributors may be used to endorse or promote products
 ;;    derived from this software without specific prior written permission.
-;; 
+;;
 ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 ;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR