test-clojure: renamed main to clojure-main

1 files changed, 0 insertions, 40 deletions

diff --git a/src/clojure/contrib/test_clojure/main.clj b/src/clojure/contrib/test_clojure/main.clj
deleted file mode 100644
index c3e6f48a..00000000
--- a/src/clojure/contrib/test_clojure/main.clj
+++ /dev/null
@@ -1,40 +0,0 @@
-;;  Copyright (c) Shawn Hoover. All rights reserved.  The use and
-;;  distribution terms for this software are covered by the Eclipse Public
-;;  License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
-;;  be found in the file epl-v10.html at the root of this distribution.  By
-;;  using this software in any fashion, you are agreeing to be bound by the
-;;  terms of this license.  You must not remove this notice, or any other,
-;;  from this software.
-
-(ns clojure.contrib.test-clojure.main
-  (:use clojure.contrib.test-is
-        clojure.main))
-
-(defn- set-properties
-  [settings]
-  (doseq [[name val] settings]
-    (if val
-      (System/setProperty name val)
-      (System/clearProperty name))))
-
-(defmacro with-properties
-  "setting => property-name value
-
-  Sets the system properties to the supplied values, executes the body, and
-  sets the properties back to their original values. Values of nil are
-  translated to a clearing of the property."
-  [settings & body]
-  `(let [settings# ~(apply hash-map settings)
-         current# (map (fn [p#] [p# (System/getProperty p#)])
-                       (keys settings#))]
-     (set-properties settings#)       
-     (try
-      ~@body
-      (finally
-       (set-properties current#)))))
-
-(deftest compile-path-respects-java-property
-  ;; Bug fixed in r1177; previously was hardwired to the compile-time path.
-  (with-properties ["clojure.compile.path" "compile path test"]
-    (with-bindings
-      (is (= "compile path test" *compile-path*)))))