   {:added "1.1"}
   [name & body]
   (when *load-tests*
-    (let [test-var-name (symbol (str name "__:private-test"))]
+    (let [test-var-name (symbol (str name "__private-test"))]
       `(do
          (def ~(vary-meta name assoc :test test-var-name :private true)
            (fn [] (test-var (var ~name))))
-         (defn ~test-var-name [] ~@body)))))
+         (defn- ~test-var-name [] ~@body)))))
 
 
 (defmacro set-test

  {:added "1.1"}
  [name & body]
  (when *load-tests*
    (let [test-var-name (symbol (str  name "__:test"))]
      `(do
         (def ~(vary-meta name assoc :test test-var-name)
           (fn [] (test-var (var ~name))))

    (let [once-fixture-fn (join-fixtures (::once-fixtures (meta ns)))
          each-fixture-fn (join-fixtures (::each-fixtures (meta ns)))]
      (once-fixture-fn
       (fn []
         (doseq [v vars]
           (when (:test (meta v))
             (each-fixture-fn (fn [] (test-var v))))))))))

(defn test-all-vars
  "Calls test-vars on every var interned in the namespace, with fixtures."
