diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_java_utils.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_java_utils.clj | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_contrib/test_java_utils.clj b/src/clojure/contrib/test_contrib/test_java_utils.clj index 5c2588a3..1a3e6ba5 100644 --- a/src/clojure/contrib/test_contrib/test_java_utils.clj +++ b/src/clojure/contrib/test_contrib/test_java_utils.clj @@ -1,5 +1,6 @@ (ns clojure.contrib.test-contrib.test-java-utils (:use clojure.contrib.test-is + [clojure.contrib.duck-streams :only (spit)] clojure.contrib.java-utils) (:import [java.io File] [java.util Properties])) @@ -88,13 +89,16 @@ (as-properties [[:a :b] [:c :d]])))))) (deftest test-read-properties - (is (= {"a" "b" "c" "d"} - (read-properties (file "test/fixtures/test_java_utils.properties"))))) + (let [f (File/createTempFile "test" "properties")] + (spit f "a=b\nc=d") + (is (= {"a" "b" "c" "d"} + (read-properties f))))) (deftest test-write-properties - (write-properties [['a 'b] ['c 'd]] (file "test/tmp/test_java_utils_write_properties.properties")) - (is (= {"a" "b" "c" "d"} - (read-properties (file "test/tmp/test_java_utils_write_properties.properties"))))) + (let [f (File/createTempFile "test" "properties")] + (write-properties [['a 'b] ['c 'd]] f) + (is (= {"a" "b" "c" "d"} + (read-properties f))))) |