blob: f1a96465992be35d11d24371e2de17eb57567fcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;; 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*)))))
|
