                    (str "Total tested: " @total ";   Accepted: " (- @total @failed) ";   Failed: " @failed))
   (reset! test-indx 0)
   (reset! failed 0)
-  (reset! total 0)
-
-  (reset! test-interval (js/clearInterval @test-interval)))
+  (reset! total 0))
 
 (defn run-single-test []
-  (js/clearInterval @test-interval)
   (if (< @test-indx (count @test-data))
     (let [sketch (nth @test-data @test-indx)]
       (log-sketch-test sketch)


(def test-data (atom (list)))

(def test-interval (atom nil))
(def test-indx (atom 0))

(def failed (atom 0))


  (dommy/set-text! (sel1 :#results) "Test started")
  (reset! test-indx 0)
  (js/setTimeout run-single-test 100))
