Skip to content

Commit 95d4a91

Browse files
authored
Update tests and bump versions for CLJR (#951)
* Update test and bump versions for cljr * update num for cljr
1 parent 725cb88 commit 95d4a91

3 files changed

Lines changed: 4 additions & 23 deletions

File tree

.github/workflows/ci.yml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,7 +134,7 @@ jobs:
134134

135135
- name: Install ClojureCLR
136136
run: |
137-
dotnet tool install --global Clojure.Main --version 1.12.3-alpha4
137+
dotnet tool install --global Clojure.Main --version 1.12.3-alpha8
138138
dotnet tool install --global Clojure.Cljr --version 0.1.0-alpha6
139139
140140
- name: Run ClojureCLR Tests

test/clojure/core_test/num.cljc

Lines changed: 2 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@
6262
(long 1)
6363
(float 1.0)
6464
(double 1.0)
65-
nil
65+
; nil ; throws not a numeric error on CLJR
6666
##Inf)]
6767

6868
:cljs
@@ -103,25 +103,7 @@
103103
nil
104104
##Inf)])
105105
(testing "exceptions thrown"
106-
;; [[num]] is *almost* a true no-op in `cljr`, equivalent to [[identity]],
107-
;; except that it will upcast to System.Int64/System.UInt64
108-
#?@(:cljr
109-
[(are [x] (and (= x (num x))
110-
(= (type x) (type (num x))))
111-
f
112-
{}
113-
#{}
114-
[]
115-
'()
116-
\1
117-
\a
118-
""
119-
"1"
120-
'a
121-
#"")
122-
(is (fn? (num (fn []))))]
123-
124-
:cljs
106+
#?@(:cljs
125107
[]
126108

127109
:default

test/clojure/core_test/transient.cljc

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,8 +23,7 @@
2323
(is (= (nth avec 1) (nth (transient avec) 1)))
2424
(is (= (get avec 1) (get (transient avec) 1)))
2525
(is (= (contains? avec 1) (contains? (transient avec) 1)))
26-
#?@(:cljr [(is (p/thrown? ((transient avec) 1)))] ;; arity exception
27-
:default [(is (= (avec 1) ((transient avec) 1)))])
26+
(is (= (avec 1) ((transient avec) 1)))
2827
(is (= (count avec) (count (transient avec))))))
2928

3029
(testing "for transient map"

0 commit comments

Comments
 (0)