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]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index 555b6acd382cca5a50d34f4dedf6be453e743ea1..892a0335d7fc528d2d3a4d6fada16dc934e40edd 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-2,18
+2,20
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Id: $Id: tests.lisp,v 1.
5 2003/08/04 12:16:13
kevin Exp $
+;;;; Id: $Id: tests.lisp,v 1.
6 2003/08/04 12:28:46
kevin Exp $
;;;; Purpose: Test suite for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Test suite for XLUnit
;;;;
;;;; *************************************************************************
+(in-package #:cl-user)
(defpackage #:xlunit-tests
(defpackage #:xlunit-tests
- (:use #:cl #:xlunit)
)
-
+ (:use #:cl #:xlunit)
+ (:export #:do-tests))
(in-package #:xlunit-tests)
;; Helper test fixture
(in-package #:xlunit-tests)
;; Helper test fixture
+
(defclass was-run (test-fixture)
((log :accessor ws-log)))
(defclass was-run (test-fixture)
((log :accessor ws-log)))
@@
-32,6
+34,7
@@
(defmethod test-error-method ((self was-run))
(error "Err"))
(defmethod test-error-method ((self was-run))
(error "Err"))
+
;;; Main test fixture
(defclass test-case-test (test-fixture)
;;; Main test fixture
(defclass test-case-test (test-fixture)
@@
-79,6
+82,7
@@
(text-testrunner (make-test-suite 'test-case-test) :handle-errors nil)
(text-testrunner (make-test-suite 'test-case-test) :handle-errors nil)
+
(defun do-tests ()
(or (was-successful
(run-test (make-test-suite 'test-case-test)))
(defun do-tests ()
(or (was-successful
(run-test (make-test-suite 'test-case-test)))