Failing test demonstrating omcljsGH-877

bnoguchi · Jul 10, 2017 · 793de71 · 793de71
1 parent c68e668
commit 793de71
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/test/om/next/next_test.clj b/src/test/om/next/next_test.clj
@@ -909,3 +909,16 @@
           (#'om/extract-static-methods '[Multi
                                          (method-a [this arg] :a)
                                          (method-a [this] :b)])))))
+
+(deftest test-om-877-recursive-edge-case
+  (let [query [{:tree [:id
+                       :value
+                       {:children '...}]}]
+        state {:tree {:id 0 :value 42
+                      :children [{:id 1 :value 43
+                                  :children [{:id 2 :value 99
+                                              :children []}]}
+                                 {:id 3 :value 101
+                                  :children []}]}}]
+    (is (= state
+           (om/db->tree query state state)))))