mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-26 22:02:53 +00:00
Code Issues 1 Releases Wiki Activity

add more test cases for partition and mean

Browse Source
This commit is contained in:
primo-ppcg 2023-09-08 16:30:44 +07:00
parent a7536268e1
commit a5ff26f602
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/suite-boot.janet
View File

@ -349,6 +349,13 @@
"sort 5") "sort 5")
(assert (<= ;(sort (map (fn [x] (math/random)) (range 1000)))) "sort 6") (assert (<= ;(sort (map (fn [x] (math/random)) (range 1000)))) "sort 6")
# #1283
(assert (deep=
(partition 2 (generate [ i :in [:a :b :c :d :e]] i))
'@[(:a :b) (:c :d) (:e)]))
(assert (= (mean (generate [i :in [2 3 5 7 11]] i))
5.6))
# And and or # And and or
# c16a9d846 # c16a9d846
(assert (= (and true true) true) "and true true") (assert (= (and true true) true) "and true true")