- (assert-equal result 1)))
-
-
-;;; Now we can create a test-suite. A test-suite contains a group of
-;;; test-cases (instances of test-fixture) and/or other test-suites.
-;;; We can specify which tests are in a test-suite when we define the
-;;; test-suite, or we can add them later. See the documentation and
-;;; argument list for make-test-case for details on how to specify a
-;;; test-case.
-
-(defparameter *manual-math-test-suite*
- (make-test-suite
- "Math Test Suite"
- "Simple test suite for arithmetic operators."
- '(("Addition Test" math-fixture
- :test-thunk test-addition
- :description "A simple test of the + operator")
- ("Subtraction Test" math-fixture
- :test-thunk test-subtraction
- :description "A simple test of the - operator"))))
-
-(add-test (make-test-case "Subtraction Test 2" 'math-fixture
- :test-thunk 'test-subtraction-2
- :description "A broken substraction test, should fail.")
- *manual-math-test-suite*)
-
-
-(defparameter *dynamic-math-test-suite* (make-test-suite 'math-fixture))