Clojurians Log v2

Mild bikeshedding: how do you typically go about documenting rules in production? Just comments where they're defined? Mostly in tests? Or some other scheme?

Going through and trying to more thoroughly test my rules, and trying to wrap my head around an interaction here: Given the DB

(def rule-tst-conn
  (d/get-conn "/var/tmp/datalevin/rule-test-db"
    {:rel/from {:db/valueType :db.type/ref}
     :rel/type {:db/valueType :db.type/keyword}
     :rel/to {:db/valueType :db.type/ref}
     :company/name {:db/valueType :db.type/string, :db/unique :db.unique/identity}}))

(d/transact! rule-tst-conn
  [{:db/id 1 :company/name "A"}
   {:db/id 2 :company/name "B"}
   {:db/id 3 :company/name "Lonely"}
   {:rel/from 1 :rel/type :alias :rel/to 2}])

(def tst-rules
  '[[(bidirectional-rel ?type ?a ?b)
     [?rel :rel/from ?a]
     [?rel :rel/type ?type]
     [?rel :rel/to ?b]]
    [(bidirectional-rel ?type ?a ?b)
     [?rel :rel/from ?b]
     [?rel :rel/type ?type]
     [?rel :rel/to ?a]]])

(d/q
  '[:find ?c1 ?type ?c2
    :in $ %
    :where
    (bidirectional-rel ?type ?c1 ?c2)]
  (d/db rule-tst-conn)
  tst-rules)
;; => #{[2 :alias 1] [1 :alias 2]}

(d/q
  '[:find ?c1 ?type ?c2
    :in $ %
    :where
    [?c1 :company/name "Lonely"]
    (bidirectional-rel ?type ?c1 ?c2)]
  (d/db rule-tst-conn)
  tst-rules)
;; => #{[3 :alias 1]}