From 4b85e1a17c80d4c55bd7511dd8a90954a455ecd6 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Mon, 11 Feb 2013 12:50:50 +0100 Subject: [PATCH] Minor whitespace/documentation fixes --- src/run.lisp | 3 +-- src/suite.lisp | 4 ++-- t/tests.lisp | 2 -- 3 files changed, 3 insertions(+), 6 deletions(-) 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)) -- 1.7.10.4