added Perry Trolard's properties helpers

added tests that use a fixture dir (we should standardize on something here)

1 files changed, 20 insertions, 2 deletions

diff --git a/src/clojure/contrib/test_contrib/test_java_utils.clj b/src/clojure/contrib/test_contrib/test_java_utils.clj
index 21a4addc..5c2588a3 100644
--- a/src/clojure/contrib/test_contrib/test_java_utils.clj
+++ b/src/clojure/contrib/test_contrib/test_java_utils.clj
@@ -1,7 +1,8 @@
 (ns clojure.contrib.test-contrib.test-java-utils
   (:use clojure.contrib.test-is
 	clojure.contrib.java-utils)
-  (:import [java.io File]))
+  (:import [java.io File]
+	   [java.util Properties]))
 
 (deftest test-relative-path-string
   (testing "strings"
@@ -75,8 +76,25 @@
       (is (= propcount (count (System/getProperties))))))
 )
 	   
+(deftest test-as-properties
+  (let [expected (doto (Properties.)
+		   (.setProperty "a" "b")
+		   (.setProperty "c" "d"))]
+    (testing "with a map"
+      (is (= expected
+	     (as-properties {:a "b" :c "d"}))))
+    (testing "with a sequence of pairs"
+      (is (= expected
+	     (as-properties [[:a :b] [:c :d]]))))))
+
+(deftest test-read-properties
+  (is (= {"a" "b" "c" "d"}
+	 (read-properties (file "test/fixtures/test_java_utils.properties")))))
 	   
-	   
+(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")))))