diff options
Diffstat (limited to 'test/clojure/test_clojure/java/io.clj')
| -rw-r--r-- | test/clojure/test_clojure/java/io.clj | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/java/io.clj b/test/clojure/test_clojure/java/io.clj new file mode 100644 index 00000000..b42d26db --- /dev/null +++ b/test/clojure/test_clojure/java/io.clj @@ -0,0 +1,185 @@ +(ns clojure.test-clojure.java.io + (:use clojure.test clojure.java.io) + (:import (java.io File FileInputStream BufferedInputStream + FileOutputStream OutputStreamWriter InputStreamReader + ByteArrayInputStream ByteArrayOutputStream) + (java.net URL URI))) + +(defn temp-file + [prefix suffix] + (doto (File/createTempFile prefix suffix) + (.deleteOnExit))) + +(deftest test-spit-and-slurp + (let [f (temp-file "clojure.contrib" "text")] + (spit f "foobar") + (is (= "foobar" (slurp f))) + (spit f "foobar" :encoding "UTF-16") + (is (= "foobar" (slurp f :encoding "UTF-16"))) + (testing "deprecated arity" + (is (= + "WARNING: (slurp f enc) is deprecated, use (slurp f :encoding enc).\n" + (with-out-str + (is (= "foobar" (slurp f "UTF-16"))))))))) + +(deftest test-streams-defaults + (let [f (temp-file "clojure.contrib" "test-reader-writer") + content "testing"] + (try + (is (thrown? Exception (reader (Object.)))) + (is (thrown? Exception (writer (Object.)))) + + (are [write-to read-from] (= content (do + (spit write-to content :encoding "UTF-8") + (slurp read-from :encoding "UTF-8"))) + f f + (.getAbsolutePath f) (.getAbsolutePath f) + (.toURL f) (.toURL f) + (.toURI f) (.toURI f) + (FileOutputStream. f) (FileInputStream. f) + (OutputStreamWriter. (FileOutputStream. f) "UTF-8") (reader f :encoding "UTF-8") + f (FileInputStream. f) + (writer f :encoding "UTF-8") (InputStreamReader. (FileInputStream. f) "UTF-8")) + + (is (= content (slurp (.getBytes content "UTF-8")))) + (is (= content (slurp (.toCharArray content)))) + (finally + (.delete f))))) + +(defn bytes-should-equal [byte-array-1 byte-array-2 msg] + (is (= @#'clojure.java.io/byte-array-type (class byte-array-1) (class byte-array-2)) msg) + (is (= (into [] byte-array-1) (into [] byte-array-2)) msg)) + +(defn data-fixture + "in memory fixture data for tests" + [encoding] + (let [bs (.getBytes "hello" encoding) + cs (.toCharArray "hello") + i (ByteArrayInputStream. bs) + r (InputStreamReader. i) + o (ByteArrayOutputStream.) + w (OutputStreamWriter. o)] + {:bs bs + :i i + :r r + :o o + :s "hello" + :cs cs + :w w})) + +(deftest test-copy + (dorun + (for [{:keys [in out flush] :as test} + [{:in :i :out :o} + {:in :i :out :w} + {:in :r :out :o} + {:in :r :out :w} + {:in :cs :out :o} + {:in :cs :out :w} + {:in :bs :out :o} + {:in :bs :out :w}] + + opts + [{} {:buffer-size 256}]] + (let [{:keys [s o] :as d} (data-fixture "UTF-8")] + (apply copy (in d) (out d) (flatten (vec opts))) + #_(when (= out :w) (.flush (:w d))) + (.flush (out d)) + (bytes-should-equal (.getBytes s "UTF-8") + (.toByteArray o) + (str "combination " test opts)))))) + +(deftest test-copy-encodings + (testing "from inputstream UTF-16 to writer UTF-8" + (let [{:keys [i s o w bs]} (data-fixture "UTF-16")] + (copy i w :encoding "UTF-16") + (.flush w) + (bytes-should-equal (.getBytes s "UTF-8") (.toByteArray o) ""))) + (testing "from reader UTF-8 to output-stream UTF-16" + (let [{:keys [r o s]} (data-fixture "UTF-8")] + (copy r o :encoding "UTF-16") + (bytes-should-equal (.getBytes s "UTF-16") (.toByteArray o) "")))) + +(deftest test-as-file + (are [result input] (= result (as-file input)) + (File. "foo") "foo" + (File. "bar") (File. "bar") + (File. "baz") (URL. "file:baz") + (File. "quux") (URI. "file:quux") + nil nil)) + +(deftest test-file + (are [result args] (= (File. result) (apply file args)) + "foo" ["foo"] + "foo/bar" ["foo" "bar"] + "foo/bar/baz" ["foo" "bar" "baz"])) +(deftest test-as-url + (are [file-part input] (= (URL. (str "file:" file-part)) (as-url input)) + "foo" "file:foo" + "/foo" (File. "/foo") + "baz" (URL. "file:baz") + "quux" (URI. "file:quux")) + (is (nil? (as-url nil)))) + +(deftest test-delete-file + (let [file (temp-file "test" "deletion") + not-file (File. (str (java.util.UUID/randomUUID)))] + (delete-file (.getAbsolutePath file)) + (is (not (.exists file))) + (is (thrown? java.io.IOException (delete-file not-file))) + (is (= :silently (delete-file not-file :silently))))) + +(deftest test-as-relative-path + (testing "strings" + (is (= "foo" (as-relative-path "foo")))) + (testing "absolute path strings are forbidden" + (is (thrown? IllegalArgumentException (as-relative-path (str File/separator "baz"))))) + (testing "relative File paths" + (is (= "bar" (as-relative-path (File. "bar"))))) + (testing "absolute File paths are forbidden" + (is (thrown? IllegalArgumentException (as-relative-path (File. (str File/separator "quux"))))))) + +(defn stream-should-have [stream expected-bytes msg] + (let [actual-bytes (byte-array (alength expected-bytes))] + (.read stream actual-bytes) + (is (= -1 (.read stream)) (str msg " : should be end of stream")) + (is (= (seq expected-bytes) (seq actual-bytes)) (str msg " : byte arrays should match")))) + +(deftest test-input-stream + (let [file (temp-file "test-input-stream" "txt") + bytes (.getBytes "foobar")] + (spit file "foobar") + (doseq [[expr msg] + [[file File] + [(FileInputStream. file) FileInputStream] + [(BufferedInputStream. (FileInputStream. file)) BufferedInputStream] + [(.. file toURI) URI] + [(.. file toURI toURL) URL] + [(.. file toURI toURL toString) "URL as String"] + [(.. file toString) "File as String"]]] + (with-open [s (input-stream expr)] + (stream-should-have s bytes msg))))) + +(deftest test-streams-buffering + (let [data (.getBytes "")] + (is (instance? java.io.BufferedReader (reader data))) + (is (instance? java.io.BufferedWriter (writer (java.io.ByteArrayOutputStream.)))) + (is (instance? java.io.BufferedInputStream (input-stream data))) + (is (instance? java.io.BufferedOutputStream (output-stream (java.io.ByteArrayOutputStream.)))))) + +(deftest test-resource + (is (nil? (resource "non/existent/resource"))) + (is (instance? URL (resource "clojure/core.clj"))) + (let [file (temp-file "test-resource" "txt") + url (as-url (.getParentFile file)) + loader (java.net.URLClassLoader. (into-array [url]))] + (is (nil? (resource "non/existent/resource" loader))) + (is (instance? URL (resource (.getName file) loader))))) + +(deftest test-make-parents + (let [tmp (System/getProperty "java.io.tmpdir")] + (delete-file-recursively (file tmp "test-make-parents") :silently) + (make-parents tmp "test-make-parents" "child" "grandchild") + (is (.isDirectory (file tmp "test-make-parents" "child"))) + (is (not (.isDirectory (file tmp "test-make-parents" "child" "grandchild")))) + (delete-file-recursively (file tmp "test-make-parents")))) |