From 2cae517e6fbb4fa382897bc30a5d93162019fdd0 Mon Sep 17 00:00:00 2001
From: Stuart Sierra <mail@stuartsierra.com>
Date: Thu, 11 Feb 2010 11:54:39 -0500
Subject: Add test for c.c.io/file-str

---
 src/test/clojure/clojure/contrib/test_io.clj | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/test/clojure/clojure/contrib/test_io.clj

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"))))
-- 
cgit v1.2.3-18-g5258