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