Mercurial > lasercutter

     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.)))))
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children