projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release 1.2
[fiveam.git]
/
src
/
classes.lisp
diff --git
a/src/classes.lisp
b/src/classes.lisp
index
0e7d836
..
fc4dc78
100644
(file)
--- 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 ()
(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
(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
(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
(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
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
(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)
(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
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
(: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
(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
(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
())
;; 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:
;; 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 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.
;; - 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.
;; - 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
;; 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