;;  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.clojure-main
  (:use [clojure.contrib.java-utils :only (with-system-properties)]
	clojure.contrib.test-is)
  (:require [clojure.main :as main]))

(deftest compile-path-respects-java-property
  ;; Bug fixed in r1177; previously was hardwired to the compile-time path.
  (with-system-properties {:clojure.compile.path "compile path test"}
    (main/with-bindings
      (is (= "compile path test" *compile-path*)))))