From eb8fe0b085162bbcdabf92ca911bceb08bbdbaf5 Mon Sep 17 00:00:00 2001 From: Philip Xu Date: Sun, 25 Dec 2016 16:57:50 -0500 Subject: [PATCH] Add test for juxt --- tests/native_tests/core.hy | 7 +++++++ 1 file changed, 7 insertions(+) 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]))