diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-02-11 11:54:39 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-02-11 11:57:41 -0500 |
| commit | 2cae517e6fbb4fa382897bc30a5d93162019fdd0 (patch) | |
| tree | 969e740a55579b11fc1da3b05b375c4a052e6caa | |
| parent | 319057dbf324b5c10577c25bfe9e0179692684f5 (diff) | |
Add test for c.c.io/file-str
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_io.clj | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/test/clojure/clojure/contrib/test_io.clj b/src/test/clojure/clojure/contrib/test_io.clj new file mode 100644 index 00000000..53347658 --- /dev/null +++ b/src/test/clojure/clojure/contrib/test_io.clj @@ -0,0 +1,9 @@ +(ns clojure.contrib.test-io + (:use clojure.test clojure.contrib.io)) + +(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")))) |