remaining test

This commit is contained in:
Michiel Borkent 2024-06-17 19:55:44 +02:00
parent 1fb3699561
commit 25e7ad21e1
3 changed files with 16 additions and 2 deletions

View file

@ -79,6 +79,18 @@
(handle [sig]
((method-or-bust methods 'handle) this sig)))
["java.io.InputStream" #{}]
(proxy [java.io.InputStream] []
(available [] ((method-or-bust methods 'available) this))
(close [] ((method-or-bust methods 'close) this))
(read
([]
((method-or-bust methods 'read) this))
([bs]
((method-or-bust methods 'read) this bs))
([bs off len]
((method-or-bust methods 'read) this bs off len))))
["java.io.PipedInputStream" #{}]
(proxy [java.io.PipedInputStream] []
(available [] ((method-or-bust methods 'available) this))

View file

@ -108,5 +108,4 @@
(read-all)
(write-byte-by-byte)
(write-byte-array))
(println "Success")
:success)
(println ":success"))

View file

@ -26,6 +26,9 @@
(deftest byte-channels-test
(is (= :success (bb nil (slurp "test-resources/bytechannel_and_related_classes.bb")))))
(deftest proxy-inputstream-outputstream-test
(is (= :success (bb nil (slurp "test-resources/proxy_inputstream_outputstream.bb")))))
(deftest map-entry-create-test
(is (true? (bb nil "(= (first {1 2})
(clojure.lang.MapEntry. 1 2)