Commit c3c3bca0 authored by pfdietz's avatar pfdietz
Browse files

Fixed control of test execution based on notes (thanks GM.)

parent a7377310
......@@ -71,11 +71,9 @@
(list* (name ,var) (form ,var) (vals ,var)))))
(defun pending-tests ()
(do ((l (cdr *entries*) (cdr l))
(r nil))
((null l) (nreverse r))
(when (pend (car l))
(push (name (car l)) r))))
(loop for entry in (cdr *entries*)
when (and (pend entry) (not (has-disabled-note entry)))
collect (name entry)))
(defun rem-all-tests ()
(setq *entries* (list nil))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment