fix: array handling

Author: erdos

reflectconfig

@@ -12,23 +12,28 @@
     },
     {"name": "clojure.lang.Numbers", "allDeclaredFields": true, "allDeclaredMethods": true},
     {"name": "clojure.lang.LockingTransaction", "allDeclaredMethods": true},
-    {"name": "java.lang.String", "allDeclaredMethods": true},
-    {"name": "java.lang.Long", "allDeclaredMethods": true, "allDeclaredFields": true},
-    {"name": "java.lang.Double", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Byte", "allDeclaredMethods": true, "allDeclaredFields": true},
     {"name": "java.lang.Boolean", "allDeclaredMethods": true, "allDeclaredFields": true},
-    {"name": "java.lang.Integer", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Character", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Double", "allDeclaredMethods": true, "allDeclaredFields": true},
     {"name": "java.lang.Float", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Integer", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Long", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.Short", "allDeclaredMethods": true, "allDeclaredFields": true},
+    {"name": "java.lang.String", "allDeclaredMethods": true},
     {"name": "java.lang.AssertionError", "allDeclaredConstructors": true},
     {"name": "java.lang.IllegalArgumentException", "allDeclaredConstructors": true},
     {"name": "java.lang.Math", "allDeclaredMethods": true, "allDeclaredFields": true},
     {"name": "java.lang.Number",
      "allDeclaredFields": true,
      "allDeclaredMethods": true
     },
+    {"name": "java.lang.reflect.Array", "allDeclaredMethods": true},
     {"name": "java.util.concurrent.atomic.AtomicReferenceArray",
      "allDeclaredConstructors": true
     },
     {"name": "java.lang.System", "methods": [{"name": "currentTimeMillis"}, {"name": "nanoTime"}]},
+    {"name": "clojure.lang.RT", "methods": [{"name": "aclone"}, {"name": "aset"}, {"name": "aget"}]},
     {"name": "clojure.lang.LazySeq", "allDeclaredConstructors": true},
     {"name": "java.io.StringWriter",
      "allDeclaredConstructors": true,

test/clojure_core_test.clj

@@ -48,7 +48,15 @@
 
 (deftest test-arrays
   ;; Long[][][][]... is not supported by the closed-world assumption
-  (is (every? some? (take 10 (iterate (fn [x] (into-array [x])) 3)))))
+  (is (every? some? (take 10 (iterate (fn [x] (into-array [x])) 3))))
+  (testing "aclone"
+    (let [a (int-array [1 2 3 4])
+          b (aclone a)]
+      (is (every? integer? b))
+      (is (= 1 (aget a 0) (aget b 0)))
+      (testing "aget-aset"
+      (aset-int b 0 2)
+      (is (= 2 (aget b 0)))))))
 
 (deftest test-xml-lib
   (is (map? (clojure.data.xml/parse-str "<a>1</a>"))))