Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Streamlining #'ADD-RESULT

  • Loading branch information...
commit 48fe445ddcff11be82f92ef1e2efcdfc327b7d5a 1 parent 6199828
@adlai authored
Showing with 3 additions and 5 deletions.
  1. +3 −5 src/check.lisp
View
8 src/check.lisp
@@ -77,11 +77,9 @@ when appropiate."))
(with-run-state (result-list current-test)
(let ((result (apply #'make-instance result-type
(append make-instance-args (list :test-case current-test)))))
- (etypecase result
- (test-passed (format *test-dribble* "."))
- (unexpected-test-failure (format *test-dribble* "X"))
- (test-failure (format *test-dribble* "f"))
- (test-skipped (format *test-dribble* "s")))
+ (format *test-dribble* (etypecase result
+ (test-passed ".") (test-skipped "s")
+ (unexpected-test-failure "X") (test-failure "f")))
(push result result-list))))
(defmacro is (test &rest reason-args)
Please sign in to comment.
Something went wrong with that request. Please try again.