   (get-tests [this] (list this))
   RunnableTest
   (run-tests [this]
-	     (debug "TestGroup.run-tests" this)
 	     (lazy-seq
 	      (list
 	       (or (skip-or-pending this)

  (get-tests [this] (list this))
  RunnableTest
  (run-tests [this]
	     (debug "TestCase.run-tests" this)
	     (if-let [skipped (skip-or-pending this)]
	       (list skipped)
	       (if (some #(:sequential (meta %)) fixtures)

       (catch Throwable e (thrown tc e))))

(defn- run-test-sequence [tc]
  (try 
    (let [state-sequences (map (fn [fix]
				 (if (:sequential (meta fix))
				   (setup fix)
				   (repeatedly (fn [] (setup fix)))))
			       (:fixtures tc))
	  argument-lists (apply map list state-sequences)]
      (map (partial apply-test-case tc) argument-lists))
    (catch Throwable e (list (thrown tc e)))))

