added :before depends-on option

[fiveam.git] / src / run.lisp

diff --git a/src/run.lisp b/src/run.lisp
index bc36025..579db2f 100644 (file)
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -106,7 +106,11 @@ run."))
        (ecase (car depends-on)
          (and (satisfies-depends-p #'every))
          (or  (satisfies-depends-p #'some))
-         (not (satisfies-depends-p #'notany))))))
+         (not (satisfies-depends-p #'notany))
+          (:before (every #'(lambda (dep)
+                              (let ((status (status (get-test dep))))
+                                (eql :unknown status)))
+                         (cdr depends-on)))))))
 
 (defun results-status (result-list)
   "Given a list of test results (generated while running a test)