external/lift.darcs/test/order-of-operations.lisp

   1 (in-package #:lift-test)
   2
   3 ;; see lift-test-setup-teardown tests too
   4 (deftestsuite order-of-operations (lift-test)
   5   ()
   6   (:setup
   7    (setf *test-notepad* nil)))
   8
   9 (deftestsuite order-of-operations-helper ()
  10   ((slot (push :slot-init-parent *test-notepad*)))
  11   (:setup
  12    (push :setup-parent *test-notepad*))
  13   (:teardown
  14    (push :teardown-parent *test-notepad*)))
  15
  16 (addtest (order-of-operations-helper)
  17   test-1
  18   (push :run-test-parent *test-notepad*))
  19
  20 (deftestsuite order-of-operations-helper-subclass (order-of-operations-helper)
  21   ((slot (push :slot-init-child *test-notepad*)))
  22   (:setup
  23    (push :setup-child *test-notepad*))
  24   (:teardown
  25    (push :teardown-child *test-notepad*)))
  26
  27 (addtest (order-of-operations-helper-subclass)
  28   test-1
  29   (push :run-test-child *test-notepad*))
  30
  31 (addtest (order-of-operations)
  32   run-parent-test
  33   (run-test :suite 'order-of-operations-helper
  34             :name 'test-1
  35             :result (make-test-result 'order-of-operations-helper :single))
  36   (ensure-same
  37    (reverse *test-notepad*)
  38    (list :slot-init-parent :setup-parent :run-test-parent :teardown-parent)))
  39
  40 (addtest (order-of-operations)
  41   run-child-test
  42   (run-test :suite 'order-of-operations-helper-subclass
  43             :name 'test-1
  44             :result (make-test-result
  45                      'order-of-operations-helper-subclass :single))
  46   (ensure-same
  47    (reverse *test-notepad*)
  48    (list :slot-init-parent
  49          :slot-init-child
  50          :setup-parent
  51          :setup-child
  52          :run-test-child
  53          :teardown-child
  54          :teardown-parent)))