diff options
| -rw-r--r-- | test/clojure/test_clojure/other_functions.clj | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/other_functions.clj b/test/clojure/test_clojure/other_functions.clj index f5b77ad7..550b4df0 100644 --- a/test/clojure/test_clojure/other_functions.clj +++ b/test/clojure/test_clojure/other_functions.clj @@ -74,6 +74,19 @@ ; partial ; comp + +(deftest test-comp + (let [c0 (comp)] + (are [x] (= (identity x) (c0 x)) + nil + 42 + [1 2 3] + #{} + :foo) + (are [x y] (= (identity x) (c0 y)) + (+ 1 2 3) 6 + (keyword "foo") :foo))) + ; complement ; constantly |