massive_perm_graph.clj

(ns dev.nocommit.massive-perm-graph
  (:require [metabase.test :as mt]
            [criterium.core :as criterium]
            [metabase.util :as u]))


(comment

  (defn get-graph [] (mt/user-http-request :crowberto :get 200 "permissions/graph"))

  (defn inflate-permission-graph! []
    (let [{:keys [groups revision]} (get-graph)
          group-ids (-> groups keys)
          db-ids (->> groups vals (mapcat keys))
          the-permission {:data {:schemas "all", :native "write"}}
          all-db-perms (zipmap db-ids (repeat the-permission))
          the-group-ids (take 10 (shuffle group-ids))
          groups (zipmap the-group-ids (repeat all-db-perms))]
      (mt/user-http-request :crowberto :put 200 "permissions/graph"
                            {:groups groups :revision revision})
      the-group-ids))

  (dotimes [n 100]
    (println "inflating..." n)
    (inflate-permission-graph!))

  (def groups {})

  (def g (get-graph))

  (def groups (let [group-ids (-> g :groups vals)
                    db-ids (->> g :groups vals (mapcat keys))
                    the-permission {:data {:schemas "all", :native "write"}}
                    all-db-perms (zipmap db-ids (repeat the-permission))]
                (zipmap (filter #(-> % first key even?) group-ids) (repeat all-db-perms))))

  (mt/user-http-request :crowberto :put 200 "permissions/graph"
                        {:groups groups :revision (:revision (get-graph))}))


(defn run-bench! [description thunk]
  (spit "results.txt"
        (str "\n----start----\n| "
             description
             "\n-------------\n"
             (with-out-str (thunk))
             "\n----end------\n")
        :append true))

;; (run-bench! "1+1" (fn [] (criterium/quick-bench (+ 1 1))))
;; (def wut (mt/user-http-request :crowberto :get 200 "permissions/graph"))

;; (:groups wut)
(comment
  (set! *warn-on-reflection* true)
  (criterium/bench (+ 1 2))

  (time (mt/user-http-request :crowberto :get 200 "permissions/graph"))
  ;; time: 26294.80275 msecs

  (time (mt/user-http-request :crowberto :get 200 "permissions/graph/db/8"))
  ;;time: 139.985667 msecs

  ;; ~192 times faster

  )