add-report return lookup refs for entities

lilactown · Feb 21, 2021 · c7c24d8 · c7c24d8
1 parent 4fa008f
commit c7c24d8
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 3 deletions.
diff --git a/src/autonormal/core.cljc b/src/autonormal/core.cljc
@@ -115,7 +115,7 @@
           (rest entities)
           (update-in db' (lookup-ref-of entity)
                      merge entity))
-         {:entities (set initial-entities)
+         {:entities (set (map lookup-ref-of initial-entities))
           :db db'})))))
 
 
@@ -126,7 +126,7 @@
   ([db data]
    (:db (add-report db data)))
   ([db data & more]
-   (apply add db data more)))
+   (reduce add (add db data) more)))
 
 
 (defn db

diff --git a/test/autonormal/core_test.cljc b/test/autonormal/core_test.cljc
@@ -88,8 +88,20 @@
 
 (t/deftest add-report
   (t/is (= {:db {:person/id {0 {:person/id 0}}}
-            :entities #{{:person/id 0}}}
+            :entities #{[:person/id 0]}}
            (a/add-report {} {:person/id 0})))
+  (t/is (= {:db {:person/id {0 {:person/id 0
+                                :person/name "Gill"
+                                :best-friend [:person/id 1]}
+                             1 {:person/id 1
+                                :person/name "Uma"}}
+                 :me [:person/id 0]}
+            :entities #{[:person/id 0]
+                        [:person/id 1]}}
+           (a/add-report {} {:me {:person/id 0
+                                  :person/name "Gill"
+                                  :best-friend {:person/id 1
+                                                :person/name "Uma"}}})))
   #_(t/is (= {:db {:person/id {0 {:person/id 0 :person/name "Gill"}
                              1 {:person/id 1}}}
             :entities #{{:person/id 0 :person/name "Gill"}