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

diff --git a/src/run.lisp b/src/run.lisp
index c3038ef..579db2f 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -66,7 +66,7 @@ run."))
     (:unknown
      (setf (status test) :resolving)
      (if (or (not (depends-on test))
-             (resolve-dependencies (depends-on test)))
+             (eql t (resolve-dependencies (depends-on test))))
          (progn
            (run-test-lambda test)
            (status test))
@@ -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)