 
 (deftest test-absolute-storm-local-dir
   (let [storm-home-key "storm.home"
-        old-storm-home (System/getProperty storm-home-key)
         conf-relative {STORM-LOCAL-DIR "storm-local"}
         conf-absolute {STORM-LOCAL-DIR
                        (if on-windows?
                          "C:\\storm-local"
                          "/var/storm-local")}]
-    (try
-      (System/setProperty storm-home-key (if on-windows? "C:\\storm-home" "/usr/local/storm-home"))
-      (testing
-        "for relative path"
-        (is (= (str (System/getProperty storm-home-key) file-path-separator (conf-relative STORM-LOCAL-DIR))
-               (absolute-storm-local-dir conf-relative))))
-      (testing
-        "for absolute path"
-        (is (= (if on-windows? "C:\\storm-local" "/var/storm-local")
-               (absolute-storm-local-dir conf-absolute))))
-      (finally (if (not-nil? old-storm-home)
-                 (System/setProperty storm-home-key old-storm-home))))))+    (testing
+      "for relative path"
+      (is (= (str (System/getProperty storm-home-key) file-path-separator (conf-relative STORM-LOCAL-DIR))
+             (absolute-storm-local-dir conf-relative))))
+    (testing
+      "for absolute path"
+      (is (= (if on-windows? "C:\\storm-local" "/var/storm-local")
+             (absolute-storm-local-dir conf-absolute))))))
        (.validateField validator "test" x))))

    (doseq [x [64 4294967296 1 nil]]
      (is (nil? (try 
                  (.validateField validator "test" x)
                  (catch Exception e e)))))))


               ["42" "64"]
               nil
              ]]
    (is (nil? (try
                (.validateField validator "test" x)
                (catch Exception e e)))))))

