Generating data relationships with datamorgana

morgana-relations.clj

(s/def :db/id (s/with-gen number? #(gen/fmap (fn [_] (clojure.lang.RT/nextID)) (gen/int))))

(s/def :entity/name (s/and string? #(< 3 (count %) 10)))
(s/def :entity/shareholder :db/id)

(s/def :person/id (s/with-gen string? #(s/gen #{"Alice" "Bob" "Eve" "Mabel" "Dipper"})))
(s/def :person/alias :db/id)

(s/def :company/name (s/with-gen string? #(s/gen #{"Alice" "Bob" "Eve" "Mabel" "Dipper"})))
(s/def :company/subsidiary :db/id)

(def genschema
  {:person/id          {:db/unique :db.unique/identity}
   :person/alias       {:db/valueType   :db.type/ref
                        :db/cardinality :db.cardinality/many}
   :entity/shareholder {:db/valueType   :db.type/ref
                        :db/cardinality :db.cardinality/many}
   :company/name       {:db/unique :db.unique/identity}
   :company/subsidiary {:db/valueType   :db.type/ref
                        :db/cardinality :db.cardinality/many}})

;; Generate

(def tx0
  (d/pull-many
   (morgana/create-db genschema)
   '[:entity/name
     {:entity/shareholder [:company/name
                           {:company/subsidiary [:company/name]}]}] (range 10)))