remove deprecated clojure.contrib.io

Signed-off-by: Stuart Sierra <mail@stuartsierra.com>

1 files changed, 0 insertions, 96 deletions

diff --git a/modules/io/src/test/clojure/clojure/contrib/test_io.clj b/modules/io/src/test/clojure/clojure/contrib/test_io.clj
deleted file mode 100644
index 807fc394..00000000
--- a/modules/io/src/test/clojure/clojure/contrib/test_io.clj
+++ /dev/null
@@ -1,96 +0,0 @@
-(ns clojure.contrib.test-io
-  (:refer-clojure :exclude (spit))
-  (:use clojure.test clojure.contrib.io)
-  (:import (java.io File FileInputStream BufferedInputStream)
-           (java.net URL URI)))
-
-(deftest file-str-backslash
-  (is (= (java.io.File.
-          (str "C:" java.io.File/separator
-               "Documents" java.io.File/separator
-               "file.txt"))
-         (file-str "C:\\Documents\\file.txt"))))
-
-(deftest test-as-file
-  (testing "strings"
-    (is (= (File. "foo") (as-file "foo"))))
-  (testing "Files"
-    (is (= (File. "bar") (as-file (File. "bar"))))))
-
-(deftest test-as-url
-  (are [result expr] (= result expr)
-       (URL. "http://foo") (as-url (URL. "http://foo"))
-       (URL. "http://foo") (as-url "http://foo")
-       (URL. "http://foo") (as-url (URI. "http://foo"))
-       (URL. "file:/foo") (as-url (File. "/foo"))))
-
-(deftest test-delete-file
-  (let [file (File/createTempFile "test" "deletion")
-        not-file (File. (str (java.util.UUID/randomUUID)))]
-    (delete-file (.getAbsolutePath file))
-    (is (not (.exists file)))
-    (is (thrown? ArithmeticException (/ 1 0)))
-    (is (thrown? java.io.IOException (delete-file not-file)))
-    (is (delete-file not-file :silently))))
-
-(deftest test-relative-path-string
-  (testing "strings"
-    (is (= "foo" (relative-path-string "foo"))))
-  (testing "absolute path strings are forbidden"
-    (is (thrown? IllegalArgumentException (relative-path-string (str File/separator "baz")))))
-  (testing "relative File paths"
-    (is (= "bar" (relative-path-string (File. "bar")))))
-  (testing "absolute File paths are forbidden"
-    (is (thrown? IllegalArgumentException (relative-path-string (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 (File/createTempFile "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-streams-defaults
-  (let [f (File/createTempFile "clojure.contrib" "test-reader-writer")
-        content "test\u2099ing"]
-    (try
-      (is (thrown? Exception (reader (Object.))))
-      (is (thrown? Exception (writer (Object.))))
-
-      (are [write-to read-from] (= content (do
-                                             (spit write-to content)
-                                             (slurp* (or read-from write-to))))
-        f nil
-        (.getAbsolutePath f) nil
-        (.toURL f) nil
-        (.toURI f) nil
-        (java.io.FileOutputStream. f) f
-        (java.io.OutputStreamWriter. (java.io.FileOutputStream. f) "UTF-8") f
-        f (java.io.FileInputStream. f)
-        f (java.io.InputStreamReader. (java.io.FileInputStream. f) "UTF-8"))
-
-      (is (= content (slurp* (.getBytes content "UTF-8"))))
-      (is (= content (slurp* (.toCharArray content))))
-      (finally
-        (.delete f)))))