eval-test

(require '[clojure.java.io :as io]
         '[clojure.edn :as edn]
         '[clojure.string :as str])

(defn metaspace-burner
  [timings-file]
  (future
    (with-open [f (io/writer (io/file timings-file))]
      (binding [*out* f ]
        (loop []
          (Thread/sleep 1)
          (let [start (System/currentTimeMillis)]
            (dotimes [_ 100]
              (eval '(+ 1 1)))
            (prn (- (System/currentTimeMillis) start)))
          (recur))))))

(comment
  ;; to start
  (def run (metaspace-burner "timings.out")))

(comment
  ;; to stop
  (future-cancel run)

  )