Fix SCI#649 aget reflection (#1100)
Fix issue with aget reported in babashka/sci#649 by @MrEbbinghaus
This commit is contained in:
parent
48cf9671e1
commit
73d466e7d6
3 changed files with 7 additions and 2 deletions
2
deps.edn
2
deps.edn
|
|
@ -54,7 +54,7 @@
|
||||||
{:extra-paths ["process/src" "process/test" "test-resources/lib_tests"]
|
{:extra-paths ["process/src" "process/test" "test-resources/lib_tests"]
|
||||||
:extra-deps {org.clj-commons/clj-http-lite {:mvn/version "0.4.392"}
|
:extra-deps {org.clj-commons/clj-http-lite {:mvn/version "0.4.392"}
|
||||||
org.babashka/spec.alpha {:git/url "https://github.com/babashka/spec.alpha"
|
org.babashka/spec.alpha {:git/url "https://github.com/babashka/spec.alpha"
|
||||||
:sha "5012f0b11f0b59c928423982566c1e12b67f3ed1"}
|
:sha "0dec1f88cbde74a0470b454396f09a03adb4ae39"}
|
||||||
lambdaisland/regal {:git/url "https://github.com/lambdaisland/regal"
|
lambdaisland/regal {:git/url "https://github.com/lambdaisland/regal"
|
||||||
:sha "f902d2c43121f9e1c48603d6eb99f5900eb6a9f6"}
|
:sha "f902d2c43121f9e1c48603d6eb99f5900eb6a9f6"}
|
||||||
weavejester/medley {:git/url "https://github.com/weavejester/medley"
|
weavejester/medley {:git/url "https://github.com/weavejester/medley"
|
||||||
|
|
|
||||||
|
|
@ -87,7 +87,9 @@
|
||||||
{:methods [{:name "applyTo"}]}
|
{:methods [{:name "applyTo"}]}
|
||||||
clojure.lang.MultiFn
|
clojure.lang.MultiFn
|
||||||
{:fields [{:name "dispatchFn"}]
|
{:fields [{:name "dispatchFn"}]
|
||||||
:methods [{:name "getMethod"}]}})
|
:methods [{:name "getMethod"}]}
|
||||||
|
clojure.lang.RT
|
||||||
|
{:methods [{:name "aget"}]}})
|
||||||
|
|
||||||
(def custom-map
|
(def custom-map
|
||||||
(cond->
|
(cond->
|
||||||
|
|
|
||||||
|
|
@ -806,6 +806,9 @@ true")))
|
||||||
(java.net.PasswordAuthentication. "bork"
|
(java.net.PasswordAuthentication. "bork"
|
||||||
(char-array "dude")))))))))))
|
(char-array "dude")))))))))))
|
||||||
|
|
||||||
|
(deftest aget-test
|
||||||
|
(is (= 1 (bb nil "(def array-2d (into-array [(int-array [1 2]) (int-array [3 4])])) (aget array-2d 0 0)"))))
|
||||||
|
|
||||||
;;;; Scratch
|
;;;; Scratch
|
||||||
|
|
||||||
(comment
|
(comment
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue