clojure-test-suite/test/clojure/core_test/float_qmark.cljc at a148a09045a2c43594bc2c5f709cdc0209330dbd · jank-lang/clojure-test-suite · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
(ns clojure.core-test.float-qmark
  (:require [clojure.test :as t :refer [are deftest]]
            [clojure.core-test.number-range :as r]
            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer) [when-var-exists]]))

(when-var-exists float?
 (deftest test-float?
   (are [expected x] (= expected (float? x))
     #?@(:cljs ; In CLJS all numbers satisfy `float?`
         [true 0
          true 1
          true -1
          true r/max-int
          true r/min-int
          true 0.0
          true 1.0
          true -1.0
          true (float 0.0)
          true (float 1.0)
          true (float -1.0)
          true (double 0.0)
          true (double 1.0)
          true (double -1.0)
          true r/max-double
          true r/min-double
          true ##Inf
          true ##-Inf
          true ##NaN
          true 0N
          true 1N
          true -1N
          true 0.0M
          true 1.0M
          true -1.0M]
         :default
         [true  0.0
          true  1.0
          true  -1.0
          true  (float 0.0)
          true  (float 1.0)
          true  (float -1.0)
          true  (double 0.0)
          true  (double 1.0)
          true  (double -1.0)
          true  r/max-double
          true  r/min-double
          true  ##Inf
          true  ##-Inf
          true  ##NaN

          false 0
          false 1
          false -1
          false r/max-int
          false r/min-int
          false 0N
          false 1N
          false -1N
          #?@(:phel
              [true 0.0M
               true 1.0M
               true -1.0M]
              :default
              [false 0.0M
               false 1.0M
               false -1.0M])])
     #?@(:cljs [] ; CLJS doesn't have ratios
         :phel
         [true 0/2
          true 1/2
          true -1/2]
         :default
         [false 0/2
          false 1/2
          false -1/2])
     false nil
     false true
     false false
     false "a string"
     false "0"
     false "1"
     false "-1"
     false {:a :map}
     false #{:a-set}
     false [:a :vector]
     false '(:a :list)
     false \0
     false \1
     false :a-keyword
     false :0
     false :1
     false :-1
     false 'a-sym)))