diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-06-09 16:19:20 +0000 |
|---|---|---|
| committer | Frantisek Sodomka <fsodomka@gmail.com> | 2009-06-09 16:19:20 +0000 |
| commit | aeddc8314e5c44b58325f4e48f93dbc40b347ef8 (patch) | |
| tree | 7abb650a2b2bb992790f466855ee173ef6cf71b7 /src/clojure/contrib/test_clojure/compilation.clj | |
| parent | 4ee78e76abde636a273790da279ff273ef066282 (diff) | |
test-clojure.compilation: extend compiler metadata test;
test-clojure.java-interop: many new tests
Diffstat (limited to 'src/clojure/contrib/test_clojure/compilation.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/compilation.clj | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/compilation.clj b/src/clojure/contrib/test_clojure/compilation.clj index 3f47ec3b..8f7bad90 100644 --- a/src/clojure/contrib/test_clojure/compilation.clj +++ b/src/clojure/contrib/test_clojure/compilation.clj @@ -19,9 +19,13 @@ (let [m ^#'when] (are (= _1 _2) (list? (:arglists m)) true + (> (count (:arglists m)) 0) true (string? (:doc m)) true + (> (.length (:doc m)) 0) true + (string? (:file m)) true + (> (.length (:file m)) 0) true (integer? (:line m)) true (> (:line m) 0) true |