Don't convert records to maps when reading

Author: r0man

src/main/om/next/impl/parser.cljc

@@ -160,9 +160,11 @@
   ([x path]
    (path-meta x path nil))
   ([x path query]
-   (let [x' (cond->> x
-              (map? x) (into {} (map (fn [[k v]] [k (path-meta v (conj path k))])))
-              (vector? x) (into [] (map-indexed #(path-meta %2 (conj path %1)))))]
+   (let [x' (cond
+              (record? x) x
+              (map? x) (into {} (map (fn [[k v]] [k (path-meta v (conj path k))]) x))
+              (vector? x) (into [] (map-indexed #(path-meta %2 (conj path %1)) x))
+              :else x)]
      (cond-> x'
        #?(:clj  (instance? clojure.lang.IObj x')
           :cljs (satisfies? IWithMeta x'))

src/test/om/next/tests.cljs

@@ -368,6 +368,12 @@
     {:value v}
     {:remote true}))
 
+(defmethod read :location
+  [{:keys [state]} k params]
+  (if-let [v (get @state k)]
+    {:value v}
+    {:remote true}))
+
 (defmethod read :woz/noz
   [{:keys [state]} k params]
   (if-let [v (get @state k)]
@@ -404,6 +410,16 @@
     (is (= (p {:state st} [:foo/bar] :remote) []))
     (is (= (p {:state st} [:foo/bar :baz/woz] :remote) [:baz/woz]))))
 
+(defrecord Point [lat lon])
+
+(deftest test-parse-defrecord
+  (let [location (->Point 1 2)
+        state (atom {:location location})
+        result (p {:state state} [:location])]
+    (is (= result {:location location}))
+    (is (instance? Point (:location result)))
+    (is (= (meta result) {:om-path []}))))
+
 (deftest test-value-and-remote
   (let [st (atom {:woz/noz 1})]
     (is (= (p {:state st} [:woz/noz]) {:woz/noz 1}))