Permalink
Browse files

Add test for c.c.io/file-str

  • Loading branch information...
1 parent 319057d commit 2cae517e6fbb4fa382897bc30a5d93162019fdd0 @stuartsierra stuartsierra committed Feb 11, 2010
Showing with 9 additions and 0 deletions.
  1. +9 −0 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"))))

0 comments on commit 2cae517

Please sign in to comment.