Add some debugging code for now.

Author: alysbrooks

src/kaocha/testable.clj

@@ -59,7 +59,12 @@
   (assert-spec :kaocha/testable testable)
   (let [type (::type testable)]
     (try-load-third-party-lib type)
-    (assert-spec type testable)))
+    (try 
+      (assert-spec type testable)
+      (catch Exception e
+        (prn e)
+        )
+      )))
 
 (defmulti -load
   "Given a testable, load the specified tests, producing a test-plan."
@@ -125,8 +130,10 @@
   Also performs validation, and lazy loading of the testable type's
   implementation."
   [testable test-plan]
-  (load-type+validate testable)
+  ;; (println (class testable))
   (binding [*current-testable* testable]
+    ;; (println (:kaocha.testable/id *current-testable*))
+    (load-type+validate testable)
     (let [run (plugin/run-hook :kaocha.hooks/wrap-run -run test-plan)
           result (run testable test-plan)]
       (if-let [history history/*history*]
@@ -232,7 +239,8 @@
 (defn run-testables
   "Run a collection of testables, returning a result collection."
   [testables test-plan]
-  (print "run-testables got a collection of size" (count testables)
+  (doall testables)
+  #_(print "run-testables got a collection of size" (count testables)
          " the first of which is "
          (:kaocha.testable/type (first testables))
          )
@@ -253,16 +261,21 @@
 (defn run-testables-parallel
   "Run a collection of testables, returning a result collection."
   [testables test-plan]
-
-  (print "run-testables-parallel got a collection of size" (count testables))
+  (doall testables)
+  ;; (print "run-testables-parallel got a collection of size" (count testables))
 (let [load-error? (some ::load-error testables)
         ;; results (watch/make-queue)
         ;; put-return (fn [acc value] 
         ;;              (if (instance? BlockingQueue value)
         ;;                (.drainTo value acc)
         ;;                (.put acc value))
         ;;              acc)
-        futures (doall (map #(future (do (println "Firing off future!" (Thread/currentThread)) (binding [*config* (dissoc *config* :parallel)] (run-testable % test-plan)))) testables))]
+        futures (doall (map #(do 
+                               (println (:parallel *config*) \space (.getName (Thread/currentThread)))
+                               (future 
+                                 ;(do #_(println "Firing off future!" (Thread/currentThread)) )
+                           (binding [*config* (dissoc *config* :parallel)] (run-testable % test-plan))))
+                            testables))]
     (comment (loop [result [] ;(ArrayBlockingQueue. 1024)
            [test & testables] testables]
       (if test

test/unit/kaocha/type/ns_test.clj

@@ -68,9 +68,7 @@
                  (with-test-ctx {:fail-fast? true}
                    (testable/run testable testable)))))))
 
-(require '[kaocha.config :as config])
-
-(deftest run-test-parallel ;both tests currently test the parallel version but later...
+(deftest run-test-parallel 
   (classpath/add-classpath "fixtures/f-tests")
 
   (let [testable (testable/load {:kaocha.testable/type    :kaocha.type/clojure.test