   (reset! failed 0)
   (reset! total 0))
 
+(defn remove-canvases []
+   (doseq [c (d/sel [:canvas])]
+     (d/remove! c)))
+
 (defn run-single-test []
   (if (< @test-indx (count test-functions))
     (let [sketch (nth test-functions @test-indx)]

(defn run-selected-test [event]
  (let [select (.-target event)
        option (aget select (.-selectedIndex select))]
    ((:fn (.-testData option)))))

(defn init-test-selection [input]

      (swap! total inc)

      (try
        (remove-canvases)
        ((:fn sketch))

        (catch js/Error e
