projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5454: *** empty log message ***
[xlunit.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index c2b1780eae6d4cc6890996f52f7af148006d30b7..ffaa50de62d978d82ca7451f5c379b708cfd351d 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-2,10
+2,10
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: package.lisp,v 1.
5 2003/08/04 12:16:13
kevin Exp $
+;;;; ID: $Id: package.lisp,v 1.
7 2003/08/04 17:04:49
kevin Exp $
;;;; Purpose: Package definition for XLUnit
;;;;
;;;; Purpose: Package definition for XLUnit
;;;;
-;;;; $Id: package.lisp,v 1.
5 2003/08/04 12:16:13
kevin Exp $
+;;;; $Id: package.lisp,v 1.
7 2003/08/04 17:04:49
kevin Exp $
;;;; *************************************************************************
(in-package #:cl-user)
;;;; *************************************************************************
(in-package #:cl-user)
@@
-14,23
+14,25
@@
(:use #:cl)
(:export
(:use #:cl)
(:export
- ;; fixture
- #:test-fixture
- #:setup
- #:teardown
+ ;; test-case.lisp
+ #:test-case
+ #:def-test-method
+ #:set-up
+ #:tear-down
+ #:run
#:run-test
#:make-test
;; assert
#:run-test
#:make-test
;; assert
- #:assert-equal
#:assert-true
#:assert-false
#:assert-true
#:assert-false
- #:test-assert
+ #:assert-equal
+ #:assert-eql
#:test-failure
#:failure
;; suite.lisp
#:test-failure
#:failure
;; suite.lisp
- #:text
-testrunner
+ #:text
ui-test-run
#:make-test-suite
#:setup-testsuite-named
#:teardown-testsuite-named
#:make-test-suite
#:setup-testsuite-named
#:teardown-testsuite-named
@@
-43,8
+45,8
@@
#:summary
;; result.lisp
#:summary
;; result.lisp
- #:test-result
- #:make-test-result
+ #:test-result
s
+ #:make-test-result
s
#:was-successful
)
(:documentation "This is the XLUnit Framework."))
#:was-successful
)
(:documentation "This is the XLUnit Framework."))