Permalink
Browse files

Small tweaks

  • Loading branch information...
1 parent cf3ad26 commit ee2541441d9556dd0b66c4dcf8094b9d631b752b @adlai committed Sep 1, 2009
Showing with 3 additions and 5 deletions.
  1. +3 −5 src/run.lisp
View
@@ -154,15 +154,13 @@ run."))
(bind-run-state ((result-list '()))
(run-tests)
(setf suite-results result-list
- (status suite) (every (lambda (res)
- (typep res 'test-passed))
- suite-results)))
+ (status suite) (every (fn (typep _ 'test-passed)) suite-results)))
(with-run-state (result-list)
(setf result-list (nconc result-list suite-results)))))))
(defmethod %run ((test-name symbol))
- (when-bind test (get-test test-name)
- (%run test)))
+ (when (get-test test-name)
+ (%run (get-test test-name))))
(defvar *initial-!* (lambda () (format t "Haven't run that many tests yet.~%")))
(defvar *!* *initial-!*)

0 comments on commit ee25414

Please sign in to comment.