         :verbose))))
 
 (deftest record-self-method
-  (println "\nBenchmarking: record-self-method")
+  (println "\nBenchmarking: record-3-self-method")
   (let [r (->MyRec2 1)]
     (cc/with-progress-reporting
       (cc/quick-bench

        :verbose))))

(deftest type-self-fn
  (println "\nBenchmarking: type-self-fn")
  (let [t (->MyType 1)]
    (cc/with-progress-reporting
      (cc/quick-bench

        :verbose))))

(deftest record-self-fn
  (println "\nBenchmarking: record-2-self-fn")
  (let [r (->MyRec 1)]
    (cc/with-progress-reporting
      (cc/quick-bench
