amitrathore

(defn pmapcat [f batches]
  (->> batches
       (pmap f)
       (apply concat)
       doall))

amitrathore

(defn doeach [function coll]
  (doseq [c coll]
    (function c)))

amitrathore

(defn domap [function coll]
  (->> coll (map function) doall))

amitrathore

{:first-name "amit"
 :last-name "rathore"
 :db/id 123123123}

amitrathore

{:user/first-name "amit"
 :user/last-name "rathore"
 :db/id 123123123}

amitrathore

(defn datomic-key->regular-key [datomic-key]
  (-> datomic-key
      name
      any-other-transform
      keyword))

amitrathore

(defn convert-to-regular-map [user-entity]
  (-> user-entity
      (select-keys some-interesting-keys)
      (maps/update-all-map-keys datomic-key->regular-key)))

amitrathore

(defn insert-and-transform-with [a-map transform]
  (-> a-map
      insert
      transform))

amitrathore

(defn load-and-transform-with [eid transform]
  (-> eid
      load-entity
      transform))

amitrathore

(deftest test-demonic-testing
  (demonic-testing "check not present, insert, then check present" 
    (is (nil? (:db/id (find-by-id some-id))))
    (demonic/insert some-map)
    (is (not (nil? (:db/id (find-by-id some-id)))))))