From: Marco Baringer Date: Mon, 11 Feb 2013 11:50:50 +0000 (+0100) Subject: Minor whitespace/documentation fixes X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4b85e1a17c80d4c55bd7511dd8a90954a455ecd6;p=fiveam.git Minor whitespace/documentation fixes --- diff --git a/src/run.lisp b/src/run.lisp index 286a7c4..1f0ed33 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -110,8 +110,7 @@ run.")) (or (satisfies-depends-p #'some)) (not (satisfies-depends-p #'notany)) (:before (every #'(lambda (dep) - (let ((status (status (get-test dep)))) - (eql :unknown status))) + (eql :unknown (status (get-test dep)))) (cdr depends-on))))))) (defun results-status (result-list) diff --git a/src/suite.lisp b/src/suite.lisp index c0cac8b..a74f7ed 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -37,7 +37,7 @@ FIXTURE:: tests defined in this suite. [NOTE] -This macro is built on top of `make-suite` as such it, like `make-suite`, +This macro is built on top of `make-suite` and it, just like `make-suite`, will overrwrite any existing suite named `NAME`." `(eval-when (:compile-toplevel :load-toplevel :execute) (make-suite ',name @@ -75,7 +75,7 @@ Overrides any existing suite named NAME." (defun list-all-suites () (loop for suite being the hash-value in *suites* - collect suite)) + collect suite)) ;;;; ** Managing the Current Suite diff --git a/t/tests.lisp b/t/tests.lisp index caba093..e3d32d1 100644 --- a/t/tests.lisp +++ b/t/tests.lisp @@ -151,7 +151,6 @@ (signals circular-dependency (run 'circular-2))) - (def-suite before-test-suite :description "Suite for before test" :in nil) (def-test before-0 (:suite before-test-suite) @@ -177,7 +176,6 @@ (with-test-results (results before-test-suite-2) (is (every #'test-passed-p results)))) - ;;;; dependencies with symbol (def-test dep-with-symbol-first (:suite test-suite) (pass))