X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=579db2f459ae4d84b1dedecffccdee5fe3e329b8;hb=ef75e7e7624f52a11e317fb0a8db7057233a45bf;hp=bc36025ff16215733719d12375bbfecf02bbb8f1;hpb=aeda92bda135a87daff3b1267fb08c149df61040;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index bc36025..579db2f 100644
--- 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)