1 (in-package #:lift-test
)
3 ;; see lift-test-setup-teardown tests too
4 (deftestsuite order-of-operations
(lift-test)
7 (setf *test-notepad
* nil
)))
9 (deftestsuite order-of-operations-helper
()
10 ((slot (push :slot-init-parent
*test-notepad
*)))
12 (push :setup-parent
*test-notepad
*))
14 (push :teardown-parent
*test-notepad
*)))
16 (addtest (order-of-operations-helper)
18 (push :run-test-parent
*test-notepad
*))
20 (deftestsuite order-of-operations-helper-subclass
(order-of-operations-helper)
21 ((slot (push :slot-init-child
*test-notepad
*)))
23 (push :setup-child
*test-notepad
*))
25 (push :teardown-child
*test-notepad
*)))
27 (addtest (order-of-operations-helper-subclass)
29 (push :run-test-child
*test-notepad
*))
31 (addtest (order-of-operations)
33 (run-test :suite
'order-of-operations-helper
35 :result
(make-test-result 'order-of-operations-helper
:single
))
37 (reverse *test-notepad
*)
38 (list :slot-init-parent
:setup-parent
:run-test-parent
:teardown-parent
)))
40 (addtest (order-of-operations)
42 (run-test :suite
'order-of-operations-helper-subclass
44 :result
(make-test-result
45 'order-of-operations-helper-subclass
:single
))
47 (reverse *test-notepad
*)
48 (list :slot-init-parent