diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-05-27 11:29:30 +0000 |
|---|---|---|
| committer | Frantisek Sodomka <fsodomka@gmail.com> | 2009-05-27 11:29:30 +0000 |
| commit | 391898ad586671a635d17ce5def9f098d250394d (patch) | |
| tree | 7ab635d28e74d3374b7224e2da660237323bdeb8 /src/clojure/contrib/test_clojure/vars.clj | |
| parent | 64ab3234411e73defdeda12722c911aa8461d178 (diff) | |
test-clojure: added compilation.clj, macros.clj, metadata.clj;
compilation: compiler metadata;
java-interop: dot, double-dot, doto;
vars: regression in binding
Diffstat (limited to 'src/clojure/contrib/test_clojure/vars.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/vars.clj | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/vars.clj b/src/clojure/contrib/test_clojure/vars.clj index 5b76cc43..f3b2e8ff 100644 --- a/src/clojure/contrib/test_clojure/vars.clj +++ b/src/clojure/contrib/test_clojure/vars.clj @@ -16,6 +16,13 @@ ; declare intern binding find-var var +(def a) +(deftest test-binding + (are (= _1 _2) + (eval `(binding [a 4] a)) 4 ; regression in Clojure SVN r1370 + )) + + ; with-local-vars var-get var-set alter-var-root [var? (predicates.clj)] ; with-in-str with-out-str ; with-open |