 
 (def test-data (atom (list)))
 
-(def test-interval (atom nil))
 (def test-indx (atom 0))
 
 (def failed (atom 0))

                   (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)))

(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)


        (finally
         (swap! test-indx inc)
         (js/setTimeout run-single-test 1000))))

    (js/setTimeout end-of-tests 500)))


(defn ^:export run-tests []
