From 7bdb978955faed6c8baa8b18e99871d31a770ee3 Mon Sep 17 00:00:00 2001 From: Marcus Crestani Date: Tue, 26 Sep 2023 08:23:27 +0200 Subject: [PATCH] Unbreak tests by fixing arity of some calls to `=`. --- test/defun/core_test.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/defun/core_test.clj b/test/defun/core_test.clj index ab917e0..53ddfcf 100644 --- a/test/defun/core_test.clj +++ b/test/defun/core_test.clj @@ -95,7 +95,7 @@ (* 2 x))) (with-out-str (is (= 4 (test1 2)))) - (is (= "Square") (with-out-str (test1 2))))) + (is (= "Square\n" (with-out-str (test1 2)))))) (deftest test-meta (testing "meta" @@ -104,7 +104,7 @@ ([name] (str "hello," name)) ([a b] "unknown.")) (is (= "hello world" (-> #'hello meta :doc))) - (is (= '([name] [a b])) (-> #'hello meta :arglists)))) + (is (= '([name] [a b]) (-> #'hello meta :arglists))))) (deftest test-fun (testing "fun" @@ -131,7 +131,7 @@ ([n ret] (recur (dec n) (+ n ret))) ([n] (recur n 0)))] (is (= 30 (twice 15))) - (is (= 90) (six-times 15)) + (is (= 90 (six-times 15))) (is (= 5050 (accum 100)))) (is (nil? (resolve 'six-times))) (is (nil? (resolve 'twice))) @@ -139,4 +139,4 @@ (letfun [(test3 ([[_ _ 2]] :a0) ([[1 1 3]] :a1) ([[1 2 3]] :a2))] - (is (= :a2) (test3 [1 2 3]))))) + (is (= :a2 (test3 [1 2 3]))))))