projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5451: *** empty log message ***
[xlunit.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index e935fda13fbabe7f4bb5318d19439a622ff8ff54..c2b1780eae6d4cc6890996f52f7af148006d30b7 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-2,28
+2,35
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: package.lisp
-;;;; Purpose: Package definition for XLTEST
-;;;; Authors: Kevin Rosenberg and Craig Brozefsky
+;;;; ID: $Id: package.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
+;;;; Purpose: Package definition for XLUnit
;;;;
;;;;
-;;;; Put in public domain by Kevin Rosenberg and onShore, Inc
-;;;; $Id: package.lisp,v 1.2 2003/08/04 09:46:44 kevin Exp $
+;;;; $Id: package.lisp,v 1.5 2003/08/04 12:16:13 kevin Exp $
;;;; *************************************************************************
(in-package #:cl-user)
;;;; *************************************************************************
(in-package #:cl-user)
-(defpackage #:xltest-framework
- (:use #:common-lisp)
- (:nicknames #:xltest #:xptest)
+(defpackage #:xlunit
+ (:use #:cl)
(:export
(:export
- ;;; Framework classes
+
+ ;; fixture
+ #:test-fixture
#:setup
#:teardown
#:setup
#:teardown
- #:perform-test
- #:test-failure
- #:failure
#:run-test
#:make-test
#:run-test
#:make-test
+
+ ;; assert
+ #:assert-equal
+ #:assert-true
+ #:assert-false
+ #:test-assert
+ #:test-failure
+ #:failure
+
+ ;; suite.lisp
+ #:text-testrunner
#:make-test-suite
#:setup-testsuite-named
#:teardown-testsuite-named
#:make-test-suite
#:setup-testsuite-named
#:teardown-testsuite-named
@@
-31,17
+38,14
@@
#:test-named
#:remove-test
#:tests
#:test-named
#:remove-test
#:tests
- #:test-result
- #:report-result
- #:make-test-suite-for-fixture
- #:assert-equal
- #:assert-true
- #:assert-false
- #:test-assert
- #:test-fixture
- #:text-testrunner
+
+ ;; printer.lisp
#:summary
#:summary
+
+ ;; result.lisp
+ #:test-result
+ #:make-test-result
+ #:was-successful
)
)
- (:documentation "This is the X
P TestSuite
Framework."))
+ (:documentation "This is the X
LUnit
Framework."))
-(in-package #:xltest)