diff options
| author | tpratley <timothypratley@gmail.com> | 2009-09-29 10:21:59 +1000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-09-28 21:15:35 -0400 |
| commit | b044959a42f5f58a37c4151f4d7b6652e17348ab (patch) | |
| tree | e74da18bbd4483100c691c0a70dab7ecd593464b | |
| parent | 86d8a952daee73bf7b7b0c5a41c7ad3faf27c038 (diff) | |
added tests, fixes #164
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | test/clojure/test_clojure/compilation.clj | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/compilation.clj b/test/clojure/test_clojure/compilation.clj index c633db6d..942fed07 100644 --- a/test/clojure/test_clojure/compilation.clj +++ b/test/clojure/test_clojure/compilation.clj @@ -36,4 +36,15 @@ (:macro m) true (:name m) 'when ))) +(deftest test-embedded-constants + (testing "Embedded constants" + (are [x] x + (eval `(make-array ~Boolean/TYPE 2)) + (eval `(make-array ~Byte/TYPE 2)) + (eval `(make-array ~Character/TYPE 2)) + (eval `(make-array ~Double/TYPE 2)) + (eval `(make-array ~Float/TYPE 2)) + (eval `(make-array ~Integer/TYPE 2)) + (eval `(make-array ~Long/TYPE 2)) + (eval `(make-array ~Short/TYPE 2))))) |