clojure-startup-time.clj

(defn startup-time
  []
  (into []
    (for [v [18 19]]
      (let [jar (case v
                  18 "/tmp/clojure-1.8.0.jar"
                  19 "/tmp/clojure-1.9.0-alpha14.jar")
            jvm-opts ["-Xverify:none"
                      "-XX:+TieredCompilation"
                      "-XX:TieredStopAtLevel=1"]
            opts (concat ["time" "-f" "%e" "java"]
                         jvm-opts
                         ["-cp" jar "clojure.main" "-e" "(println :hi)"])
            {:keys [out err]}
            (apply sh/sh opts)]
        (assert (= out ":hi\n"))
        [v (Double/parseDouble err)]))))
#_(startup-time)


#_(:err (sh/sh "time" "-f" "%e" "/tmp/lumo" "-e" "(println :hi)"))
;; => 0.22