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

Add PipedInputStream and PipedOutputStream

Browse source
This commit is contained in:
Burin Choomnuan 2020-11-17 03:43:29 -05:00 committed by Michiel Borkent
parent a152a44c87
commit 51133263f2
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -93,8 +93,10 @@
java.io.FilenameFilter
java.io.FileNotFoundException
java.io.InputStream
java.io.PipedInputStream
java.io.IOException
java.io.OutputStream
java.io.PipedOutputStream
java.io.FileReader
java.io.InputStreamReader
java.io.PushbackInputStream

12
test/babashka/java_io_piped_stream_test.clj Normal file
View file

@ -0,0 +1,12 @@
(ns babashka.java-io-piped-stream-test
(:require [clojure.test :as test :refer [deftest is]])
(:import [java.io PipedInputStream PipedOutputStream]))
(deftest piped-stream-test
(let [pis (PipedInputStream.)
pos (PipedOutputStream.)
char-seq [66 97 98 97 115 104 107 97]
_ (.connect pis pos)
_ (doseq [c char-seq]
(.write pos c))]
(is (= "Babashka" (apply str (for [_ char-seq] (char (.read pis))))))))