Extend Decodeable to j.u.ArrayList to preserve roundtrip ILookup sema…

…ntics
vert-x · Jul 1, 2014 · 147fd39 · 147fd39
1 parent 1be1339
commit 147fd39
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/api/src/main/clojure/vertx/utils.clj b/api/src/main/clojure/vertx/utils.clj
@@ -18,7 +18,7 @@
     (:import [org.vertx.java.core.json JsonArray JsonObject]
              [clojure.lang BigInt IPersistentMap Ratio Seqable IPersistentVector
               IPersistentList IPersistentSet IPersistentCollection Associative Keyword ISeq]
-             [java.util Map UUID List Map$Entry]
+             [java.util ArrayList Map UUID List Map$Entry]
              [java.net NetworkInterface InetAddress InetSocketAddress]
              java.math.BigDecimal))
 
@@ -106,7 +106,10 @@
               (assoc m
                 (keyword (.getKey e))
                 (decode (.getValue e))))
-      {} (seq data))))
+      {} (seq data)))
+  ArrayList
+  (decode [data]
+    (vec (map decode data))))
 
 (defn uuid
   "Generates a uuid."

diff --git a/api/src/test/clojure/vertx/utils_test.clj b/api/src/test/clojure/vertx/utils_test.clj
@@ -74,3 +74,8 @@
 (deftest map-of-mapped-nums-should-decode
   (is (= {:a {:b 1000000000000} } (decode (JsonObject. "{\"a\":{\"b\":1000000000000}}")))))
 
+(deftest ilookup-semantics-should-hold
+  (let [data {:a {:b ["foo" "bar"]}}
+        ks [:a :b 0]]
+    (is (= (get-in data ks)
+           (get-in (-> data encode decode) ks)))))