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, Stephen C. Gilardi

    10 

    11 

    12 (ns clojure.test-clojure.vars

    13   (:use clojure.test))

    14 

    15 ; http://clojure.org/vars

    16 

    17 ; def

    18 ; defn defn- defonce

    19 

    20 ; declare intern binding find-var var

    21 

    22 (def a)

    23 (deftest test-binding

    24   (are [x y] (= x y)

    25       (eval `(binding [a 4] a)) 4     ; regression in Clojure SVN r1370

    26   ))

    27 

    28 ; with-local-vars var-get var-set alter-var-root [var? (predicates.clj)]

    29 ; with-in-str with-out-str

    30 ; with-open

    31 ; with-precision

    32 

    33 (deftest test-with-precision

    34   (are [x y] (= x y)

    35        (with-precision 4 (+ 3.5555555M 1)) 4.556M

    36        (with-precision 6 (+ 3.5555555M 1)) 4.55556M

    37        (with-precision 6 :rounding CEILING     (+ 3.5555555M 1)) 4.55556M

    38        (with-precision 6 :rounding FLOOR       (+ 3.5555555M 1)) 4.55555M

    39        (with-precision 6 :rounding HALF_UP     (+ 3.5555555M 1)) 4.55556M

    40        (with-precision 6 :rounding HALF_DOWN   (+ 3.5555555M 1)) 4.55556M

    41        (with-precision 6 :rounding HALF_EVEN   (+ 3.5555555M 1)) 4.55556M

    42        (with-precision 6 :rounding UP          (+ 3.5555555M 1)) 4.55556M

    43        (with-precision 6 :rounding DOWN        (+ 3.5555555M 1)) 4.55555M

    44        (with-precision 6 :rounding UNNECESSARY (+ 3.5555M 1))    4.5555M))

    45 

    46 (deftest test-settable-math-context

    47   (is (=

    48        (clojure.main/with-bindings

    49          (set! *math-context* (java.math.MathContext. 8))

    50          (+ 3.55555555555555M 1))

    51        4.5555556M)))

    52 

    53 ; set-validator get-validator

    54 

    55 ; doc find-doc test

    56
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children