Minor whitespace/documentation fixes

diff --git a/src/run.lisp b/src/run.lisp
index 286a7c4..1f0ed33 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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))