luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add constructors for Delay and MapEntry

Browse source
This commit is contained in:
Michiel Borkent 2020-01-04 20:21:09 +01:00
parent a5c2f62d38
commit 1d3cd975ba
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/babashka/impl/classes.clj
View file

@ -91,19 +91,18 @@
java.util.zip.GZIPInputStream java.util.zip.GZIPInputStream
java.util.zip.GZIPOutputStream java.util.zip.GZIPOutputStream
] ]
:constructors [] :constructors [clojure.lang.Delay
clojure.lang.MapEntry
clojure.lang.LineNumberingPushbackReader]
:methods [borkdude.graal.LockFix ;; support for locking :methods [borkdude.graal.LockFix ;; support for locking
sun.net.www.http.PosterOutputStream ;; support for clj-http-lite sun.net.www.http.PosterOutputStream ;; support for clj-http-lite
sun.net.www.protocol.https.HttpsURLConnectionImpl ;; support for clj-http-lite sun.net.www.protocol.https.HttpsURLConnectionImpl ;; support for clj-http-lite
sun.net.www.protocol.http.HttpURLConnection$HttpInputStream ;; support for clj-http-lite sun.net.www.protocol.http.HttpURLConnection$HttpInputStream ;; support for clj-http-lite
] ]
:fields [clojure.lang.PersistentQueue] :fields [clojure.lang.PersistentQueue]
:instance-checks [clojure.lang.Delay :instance-checks [clojure.lang.ExceptionInfo
clojure.lang.ExceptionInfo
clojure.lang.IObj clojure.lang.IObj
clojure.lang.IEditableCollection clojure.lang.IEditableCollection]
clojure.lang.LineNumberingPushbackReader
clojure.lang.MapEntry]
:custom {clojure.lang.LineNumberingPushbackReader {:allPublicConstructors true :custom {clojure.lang.LineNumberingPushbackReader {:allPublicConstructors true
:allPublicMethods true} :allPublicMethods true}
java.lang.Thread java.lang.Thread

6
test/babashka/main_test.clj
View file

@ -328,6 +328,12 @@
(is (true? (bb nil "(nil? *command-line-args*)"))) (is (true? (bb nil "(nil? *command-line-args*)")))
(is (= ["1" "2" "3"] (bb nil "*command-line-args*" "1" "2" "3")))) (is (= ["1" "2" "3"] (bb nil "*command-line-args*" "1" "2" "3"))))
(deftest need-constructors-test
(testing "the clojure.lang.Delay constructor works"
(is (= 1 (bb nil "@(delay 1)"))))
(testing "the clojure.lang.MapEntry constructor works"
(is (true? (bb nil "(= (first {1 2}) (clojure.lang.MapEntry. 1 2))")))))
;;;; Scratch ;;;; Scratch
(comment (comment