Add test for juxt

2016-12-25 16:57:50 -05:00 · 2016-12-25 16:57:50 -05:00 · eb8fe0b085
commit eb8fe0b085
parent f8a5c151f8
1 changed files with 7 additions and 0 deletions
--- a/tests/native_tests/core.hy
+++ b/tests/native_tests/core.hy
@ -649,3 +649,10 @@
  (assert-true ((comp even? inc +) 1 2 3 4 5))
  (assert-true (= 5 ((comp) 5)))
  (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]))