                         (when (:test (meta v))
                           (each-fixture-fn
                            (fn []
-                             (test-var v)))))))
-                   (update-current-env! [:async-disabled]
-                                        (constantly nil)))])))))))
+                             (test-var v))))))))])))))))
    (group-by (comp :ns meta) vars)))
 
 (defn test-vars

                 (wrap-map-fixtures once-fixtures))
            :sync
            (do
              (update-current-env! [:async-disabled]
                                   (constantly
                                    "Async tests require fixtures to be specified as maps"))
              (let [each-fixture-fn (join-fixtures each-fixtures)]
                [(fn []
                   ((join-fixtures once-fixtures)

       (update-current-env! [:testing-vars] conj v)
       (update-current-env! [:report-counters :test] inc)
       (do-report {:type :begin-test-var :var v})
       (try
         (t)
         (catch :default e
           (do-report
             {:type :error
              :message "Uncaught exception, not in assertion."
              :expected nil
              :actual e}))))
     (fn []
       (do-report {:type :end-test-var :var v})
       (update-current-env! [:testing-vars] rest))]))
