diff --git a/tests/native_tests/core.hy b/tests/native_tests/core.hy index 0d33f1e..2263f53 100644 --- 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]))