Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv25734/Drei/Tests

Modified Files: undo-tests.lisp testing.lisp rectangle-tests.lisp motion-tests.lisp lisp-syntax-tests.lisp kill-ring-tests.lisp editing-tests.lisp core-tests.lisp buffer-tests.lisp buffer-streams-tests.lisp base-tests.lisp Log Message: Revamped the Drei test suite infrastructure slightly.

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/undo-tests.lisp 2006/12/04 07:54:51 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/undo-tests.lisp 2007/08/15 10:03:32 1.2 @@ -21,7 +21,7 @@ (cl:in-package :drei-tests)

(def-suite undo-tests :description "The test suite for tests -related to Drei's undo system.") +related to Drei's undo system." :in drei-tests)

(in-suite undo-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/testing.lisp 2007/02/17 17:54:06 1.4 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/testing.lisp 2007/08/15 10:03:32 1.5 @@ -23,7 +23,7 @@ (cl:in-package :drei-tests)

;; Define some stuff to ease the pain of writing repetitive test -;; cases. Also provide test-running entry point. +;; cases. Also provide global test-suite and test-running entry point.

(defclass delegating-standard-buffer (delegating-buffer) () (:default-initargs :implementation (make-instance 'standard-buffer))) @@ -93,34 +93,11 @@ (with-bound-drei-special-variables (,drei :minibuffer nil) ,@body)))))

+(def-suite drei-tests :description "The test suite for all Drei +test cases. Has nested test suites for the actual tests.") + (defun run-tests () - (format t "Testing buffer protocol implementation(s)~%") - (run! 'buffer-tests) - (format t "Testing basic functions~%") - (run! 'base-tests) - (format t "Testing the kill ring~%") - (run! 'kill-ring-tests) - (format t "Testing mark motion~%") - (run! 'motion-tests) - (format t "Testing text editing functions~%") - (run! 'editing-tests) - (format t "Testing miscellaneus editor functions~%") - (run! 'core-tests) - (format t "Testing buffer-based gray streams~%") - (run! 'buffer-streams-tests) - (format t "Testing rectangle editing~%") - (run! 'rectangle-tests) - (format t "Testing undo~%") - (run! 'undo-tests) - (format t "Testing the Lisp syntax module~%") - (run! 'lisp-syntax-tests) - - (format t "Running the CL-AUTOMATON tests~%") - (format t "Testing regular expressions~%") - (run! 'regexp-tests) - (format t "Testing eqv-hash~%") - (run! 'eqv-hash-tests) - (format t "Testing states and transitions~%") - (run! 'state-and-transition-tests) - (format t "Testing core automata functions~%") - (run! 'automaton-tests)) + "Run the Drei test suite. A dot will be printed for each passed +test, a "f" for each failed test, a "X" for each test that +causes an error, and an "s" for each skipped test." + (run! 'drei-tests)) --- /project/mcclim/cvsroot/mcclim/Drei/Tests/rectangle-tests.lisp 2006/12/04 07:54:51 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/rectangle-tests.lisp 2007/08/15 10:03:32 1.2 @@ -21,7 +21,7 @@ (cl:in-package :drei-tests)

(def-suite rectangle-tests :description "The test suite for -rectangle-editing related tests.") +rectangle-editing related tests." :in drei-tests)

(in-suite rectangle-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/motion-tests.lisp 2007/04/27 21:37:15 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/motion-tests.lisp 2007/08/15 10:03:32 1.4 @@ -22,7 +22,7 @@ (cl:in-package :drei-tests)

(def-suite motion-tests :description "The test suite for -DREI-MOTION related tests.") +DREI-MOTION related tests." :in drei-tests)

(in-suite motion-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2007/08/13 21:58:43 1.5 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp 2007/08/15 10:03:32 1.6 @@ -25,7 +25,7 @@ explicitly tested. Instead, it is hoped that any defects will be caught by other test cases, all of which depend on correct parsing. Also, redisplay is not tested, because no-one has any -idea how to do it.") +idea how to do it." :in drei-tests)

(in-suite lisp-syntax-tests)

@@ -1797,6 +1797,7 @@ ;; Also, as fun as infinite recursion would be... disable this ;; test before running the suite. (let ((*run-self-compilation-test* nil)) - (format t "Re-running Drei test suite with newly evaluated Drei definitions~%") - (run-tests))) + (format *test-dribble* "~%Re-running Drei test suite with newly evaluated Drei definitions~%") + (is-true (results-status (let ((fiveam:*test-dribble* (make-broadcast-stream))) + (fiveam:run 'drei-tests)))))) (skip "Sensibly skipping self-compilation test. Set DREI-TESTS:*RUN-SELF-COMPILATION-TEST* to true if you don't want to skip it"))) --- /project/mcclim/cvsroot/mcclim/Drei/Tests/kill-ring-tests.lisp 2006/12/04 07:54:51 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/kill-ring-tests.lisp 2007/08/15 10:03:32 1.2 @@ -27,7 +27,7 @@ (in-package :drei-tests)

(def-suite kill-ring-tests :description "The test suite for DREI-KILL-RING -related tests.") +related tests." :in drei-tests)

(in-suite kill-ring-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/editing-tests.lisp 2006/12/04 07:54:51 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/editing-tests.lisp 2007/08/15 10:03:32 1.2 @@ -23,7 +23,7 @@ (cl:in-package :drei-tests)

(def-suite editing-tests :description "The test suite for -DREI-EDITING related tests.") +DREI-EDITING related tests." :in drei-tests)

(in-suite editing-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp 2007/02/13 12:14:11 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/core-tests.lisp 2007/08/15 10:03:32 1.4 @@ -23,7 +23,7 @@ (cl:in-package :drei-tests)

(def-suite core-tests :description "The test suite for -DREI-CORE related tests.") +DREI-CORE related tests." :in drei-tests)

(in-suite core-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp 2006/12/04 07:54:51 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp 2007/08/15 10:03:32 1.2 @@ -28,7 +28,7 @@ (cl:in-package :drei-tests)

(def-suite buffer-tests :description "The test suite for -buffer-protocol related tests.") +buffer-protocol related tests." :in drei-tests)

(in-suite buffer-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-streams-tests.lisp 2007/01/15 11:35:53 1.1 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-streams-tests.lisp 2007/08/15 10:03:32 1.2 @@ -23,7 +23,7 @@ (cl:in-package :drei-tests)

(def-suite buffer-streams-tests :description "The test suite for -buffer-streams related tests.") +buffer-streams related tests." :in drei-tests)

(in-suite buffer-streams-tests)

--- /project/mcclim/cvsroot/mcclim/Drei/Tests/base-tests.lisp 2007/02/13 12:14:11 1.2 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/base-tests.lisp 2007/08/15 10:03:32 1.3 @@ -26,7 +26,7 @@ (cl:in-package :drei-tests)

(def-suite base-tests :description "The test suite for DREI-BASE -related tests.") +related tests." :in drei-tests)

(in-suite base-tests)