                                                :as :as :alias db-id}]]}]
            [:aliased-property {:property [:simple name]
                                :as :as :alias nm}]]}]]]]
-    '[{[user 1] [db [id :as db-id]
-                 name :as nm]}]))
+    '[{[user 1] [db [id :as db-id] name :as nm]}]))
 
 (deftest parsing-joins-with-sub-aliases
   (are [out in] (= out (q/conform-and-parse in))

                     {:name current-user :type :join
                      :join-source {:name current-user :type :link :link-id _}
                      :join-target [{:name user/name :type :property}]}]}]
    '[{users [user [name]
              {[current-user _] [user [name]]}]}]))

(deftest conforming-joins-with-sub-aliases
  (are [out in] (= out (q/conform in))

     {:name d/f :type :property}]
   '[a [b c] d [e f]]))

(deftest om-next-query-for-prefixed-properties
  (are [out in] (= out (-> in q/conform-and-parse om/query))
    '[:a/b] '[a [b]]
    '[:a/b :a/c] '[a [b c]]
    '[:a/b :a/c :d/e :d/f] '[a [b c] d [e f]]))

(deftest conforming-aliased-regular-properties
  (are [out in] (= out (q/conform in))
    '[[:aliased-property {:property [:simple a] :as :as :alias b}]]
