projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added :before depends-on option
[fiveam.git]
/
src
/
run.lisp
diff --git
a/src/run.lisp
b/src/run.lisp
index
c3038ef
..
579db2f
100644
(file)
--- a/
src/run.lisp
+++ b/
src/run.lisp
@@
-66,7
+66,7
@@
run."))
(:unknown
(setf (status test) :resolving)
(if (or (not (depends-on test))
(: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))
(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))
(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)
(defun results-status (result-list)
"Given a list of test results (generated while running a test)