Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Add test for juxt

Browse Source
This commit is contained in:
Philip Xu 2016-12-25 16:57:50 -05:00
parent f8a5c151f8
commit eb8fe0b085
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/native_tests/core.hy
View File

@ -649,3 +649,10 @@
(assert-true ((comp even? inc +) 1 2 3 4 5)) (assert-true ((comp even? inc +) 1 2 3 4 5))
(assert-true (= 5 ((comp) 5))) (assert-true (= 5 ((comp) 5)))
(assert (is (comp) identity))) (assert (is (comp) identity)))
(defn test-juxt []
"NATIVE: test juxt"
(assert-equal ((juxt min max sum) [1 2 3 4 5 6])
[1 6 21])
(assert-equal ((juxt identity) 42)
[42]))