time

time_test_self_parity.clj

#!/usr/bin/env planck
(ns march.core
  (:require
    [clojure.string :as string]
    [planck.core :refer [spit]]
    [planck.shell :as shell]))

(def start-commit "r1.8.51")

(def out-file "/Users/mfikes/timings.edn")

(defn get-commits
  [start-commit]
  (shell/sh "git" "checkout" "master")
  (-> (shell/sh "git" "rev-list" (str start-commit "..HEAD") "--reverse")
      :out
      (string/split "\n")))

(defn get-timing
  [commit]
  (shell/sh "git" "checkout" commit)
  (shell/sh "script/clean")
  (shell/sh "script/bootstrap")
  (let [start (system-time)
        result (shell/sh "script/test-self-parity")
        timing (if (== 0 (:exit result))
                 (- (system-time) start)
                 :not-available)]
    (prn [commit timing])
    timing))

(spit out-file
  (pr-str
    (->> start-commit
         get-commits
         (map (fn [commit]
                [commit (get-timing commit)]))
         (remove (fn [[commit timing]]
                   (= :not-available timing))))))