;;;; -*- lisp -*-
-(in-package :it.bese.FiveAM)
+(in-package :it.bese.fiveam)
-(in-suite :it.bese.FiveAM)
+(in-suite :it.bese.fiveam)
(def-suite test-suite :description "Suite for tests which should fail.")
`(let ((,results (with-*test-dribble* nil (run ',test-name))))
,@body))
+(rem-fixture 'null-fixture)
(def-fixture null-fixture ()
`(progn ,@(&body)))
(signals circular-dependency
(run 'circular-2)))
+
+(def-suite before-test-suite :description "Suite for before test")
+
+(test (before-0 :suite before-test-suite)
+ (pass))
+
+(test (before-1 :depends-on (:before before-0)
+ :suite before-test-suite)
+ (fail))
+
+(def-suite before-test-suite-2 :description "Suite for before test")
+
+(test (before-2 :depends-on (:before before-3)
+ :suite before-test-suite-2)
+ (pass))
+
+(test (before-3 :suite before-test-suite-2)
+ (pass))
+
+(test before
+ (with-test-results (results before-test-suite)
+ (is (some #'test-skipped-p results)))
+
+ (with-test-results (results before-test-suite-2)
+ (is (every #'test-passed-p results))))
+
+
;;;; dependencies with symbol
(test (dep-with-symbol-first :suite test-suite)
(pass))
(with-test-results (results dep-with-symbol-dependencies-not-met)
(is (some #'test-skipped-p results)))
+ ;; No failure here, because it means the test was run.
(with-test-results (results dep-with-symbol-depends-on-failed-dependency)
- (is (some #'test-skipped-p results))))
+ (is (not (some #'test-failure-p results)))))
;;;; test for-all