rlm@10
|
1 ; Copyright (c) Rich Hickey. All rights reserved.
|
rlm@10
|
2 ; The use and distribution terms for this software are covered by the
|
rlm@10
|
3 ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
|
rlm@10
|
4 ; which can be found in the file epl-v10.html at the root of this distribution.
|
rlm@10
|
5 ; By using this software in any fashion, you are agreeing to be bound by
|
rlm@10
|
6 ; the terms of this license.
|
rlm@10
|
7 ; You must not remove this notice, or any other, from this software.
|
rlm@10
|
8
|
rlm@10
|
9 ; Author: Frantisek Sodomka
|
rlm@10
|
10
|
rlm@10
|
11
|
rlm@10
|
12 (ns clojure.test-clojure.compilation
|
rlm@10
|
13 (:use clojure.test))
|
rlm@10
|
14
|
rlm@10
|
15 ; http://clojure.org/compilation
|
rlm@10
|
16
|
rlm@10
|
17 ; compile
|
rlm@10
|
18 ; gen-class, gen-interface
|
rlm@10
|
19
|
rlm@10
|
20
|
rlm@10
|
21 (deftest test-compiler-metadata
|
rlm@10
|
22 (let [m (meta #'when)]
|
rlm@10
|
23 (are [x y] (= x y)
|
rlm@10
|
24 (list? (:arglists m)) true
|
rlm@10
|
25 (> (count (:arglists m)) 0) true
|
rlm@10
|
26
|
rlm@10
|
27 (string? (:doc m)) true
|
rlm@10
|
28 (> (.length (:doc m)) 0) true
|
rlm@10
|
29
|
rlm@10
|
30 (string? (:file m)) true
|
rlm@10
|
31 (> (.length (:file m)) 0) true
|
rlm@10
|
32
|
rlm@10
|
33 (integer? (:line m)) true
|
rlm@10
|
34 (> (:line m) 0) true
|
rlm@10
|
35
|
rlm@10
|
36 (:macro m) true
|
rlm@10
|
37 (:name m) 'when )))
|
rlm@10
|
38
|
rlm@10
|
39 (deftest test-embedded-constants
|
rlm@10
|
40 (testing "Embedded constants"
|
rlm@10
|
41 (is (eval `(= Boolean/TYPE ~Boolean/TYPE)))
|
rlm@10
|
42 (is (eval `(= Byte/TYPE ~Byte/TYPE)))
|
rlm@10
|
43 (is (eval `(= Character/TYPE ~Character/TYPE)))
|
rlm@10
|
44 (is (eval `(= Double/TYPE ~Double/TYPE)))
|
rlm@10
|
45 (is (eval `(= Float/TYPE ~Float/TYPE)))
|
rlm@10
|
46 (is (eval `(= Integer/TYPE ~Integer/TYPE)))
|
rlm@10
|
47 (is (eval `(= Long/TYPE ~Long/TYPE)))
|
rlm@10
|
48 (is (eval `(= Short/TYPE ~Short/TYPE)))))
|
rlm@10
|
49
|
rlm@10
|
50 (deftest test-compiler-resolution
|
rlm@10
|
51 (testing "resolve nonexistent class create should return nil (assembla #262)"
|
rlm@10
|
52 (is (nil? (resolve 'NonExistentClass.)))))
|