add assert for main not being an acceptable deftest name. Also rm dea…

…dcode.

clj/src/cljd/test.cljd

@@ -441,6 +441,8 @@
 
   When *load-tests* is false, deftest is ignored."
   [name & body]
+  (assert (not= 'main name)
+    "Can't use `main` as a test name.")
   (let [opts (take-while (fn [[k]] (keyword? k)) (partition 2 body))
         body (drop (* 2 (count opts)) body)
         opts (into {} (map vec) opts)
@@ -450,7 +452,6 @@
     `(do
        (defn ~(vary-meta name assoc ::test true) []
          (let [name# ~(str (:current-ns (:nses &env)) "/" name)
-               test-called (volatile! false)
                thunk#
                (fn []
                  (let [~runner-args *in-test*]