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] (handle [sig]
((method-or-bust methods 'handle) this 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" #{}] ["java.io.PipedInputStream" #{}]
(proxy [java.io.PipedInputStream] [] (proxy [java.io.PipedInputStream] []
(available [] ((method-or-bust methods 'available) this)) (available [] ((method-or-bust methods 'available) this))

View file

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

View file

@ -26,6 +26,9 @@
(deftest byte-channels-test (deftest byte-channels-test
(is (= :success (bb nil (slurp "test-resources/bytechannel_and_related_classes.bb"))))) (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 (deftest map-entry-create-test
(is (true? (bb nil "(= (first {1 2}) (is (true? (bb nil "(= (first {1 2})
(clojure.lang.MapEntry. 1 2) (clojure.lang.MapEntry. 1 2)