full-query thinks "No queries exist" when the query path includes a link

[Peeja]

Consider a component whose query path includes a link, such as an instance of IdxrLinkItem from the tests:

(defui IdxrLinkItem
  static om/IQuery
  (query [this]
    [:b]))

(defui IdxrLinkRoot
  static om/IQuery
  (query [this]
    [{[:a '_] (om/get-query IdxrLinkItem)}]))

Its query will be [{[:a _] [:b]}], and it will be indexed as such. However, its path will be [:a :b]. This means that it will fail to match when full-query looks up the query in the indexer.

---

(deftest test-full-query
  (testing "OM-773: `full-query` thinks no queries exist when the query path includes a link"
    (let [r (om/reconciler
             {:state (atom nil)
              :parser (om/parser {:read (fn [_ _ _] {})})})
          idxr (get-in r [:config :indexer])
          _ (p/add-root! r IdxrLinkRoot nil nil)
          _ (p/index-component! idxr #?(:clj (IdxrLinkRoot nil nil #js {:omcljs$reconciler r} nil)
                                        :cljs (IdxrLinkRoot. #js {:omcljs$reconciler r})))
          root (-> @idxr :class->components (get IdxrLinkRoot) first)
          child #?(:clj (IdxrLinkItem nil nil #js {:omcljs$reconciler r
                                                   :omcljs$path [:a]
                                                   :omcljs$parent root} nil)
                   :cljs (IdxrLinkItem. #js {:omcljs$reconciler r
                                             :omcljs$path [:a]
                                             :omcljs$parent root}))
          _ (p/index-component! idxr child)]
      (is (= (om/full-query child)
             '[{[:a _] [:b]}])))))

[anmonteiro]

fixed 99862b2