diff options
| author | tpratley <timothypratley@gmail.com> | 2009-09-29 23:21:27 +1000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-10-01 12:18:23 -0400 |
| commit | 1ca9c8b9322882a0d84db9007047d223d11f2c3f (patch) | |
| tree | e4a1f712c093bf94f593d2c1dc2faa5e746f4091 | |
| parent | b4095306ddc59c1a992c39369f06f1315b97d377 (diff) | |
shorter, stronger embedded-constants tests. fixes #164
Signed-off-by: Chouser <chouser@n01se.net>
| -rw-r--r-- | test/clojure/test_clojure/compilation.clj | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/test/clojure/test_clojure/compilation.clj b/test/clojure/test_clojure/compilation.clj index 942fed07..fba781ca 100644 --- a/test/clojure/test_clojure/compilation.clj +++ b/test/clojure/test_clojure/compilation.clj @@ -38,13 +38,6 @@ (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))))) - + (are [t] (eval `(= t ~t/TYPE))) + Boolean Byte Character Double Float Integer Long Short)) + |