From 1d2bba82b09710b0dc6ca4e1a515763088b3fbf5 Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Mon, 26 Oct 2020 20:57:22 +0300 Subject: feature: refactoring make some functions private (for coverage.sh) Separate tests into one test per function (for coverage.sh) --- macros_test.fnl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'macros_test.fnl') diff --git a/macros_test.fnl b/macros_test.fnl index 7d3818a..aebde2e 100644 --- a/macros_test.fnl +++ b/macros_test.fnl @@ -39,19 +39,22 @@ b []] (assert-eq (into b {:a 1}) [[:a 1]]))) -(test let-variants +(test when-let (assert-eq (when-let [a 4] a) 4) (assert* (not (when-let [a false] a)) "(not (when-let [a false] a))") - (assert* (not (when-let [a nil] a)) "(not (when-let [a nil] a))") + (assert* (not (when-let [a nil] a)) "(not (when-let [a nil] a))")) +(test when-some (assert-eq (when-some [a [1 2 3]] a) [1 2 3]) (assert-eq (when-some [a false] a) false) - (assert* (not (when-some [a nil] a)) "(when-some [a nil] a)") + (assert* (not (when-some [a nil] a)) "(when-some [a nil] a)")) +(test if-let (assert-eq (if-let [a 4] a 10) 4) (assert-eq (if-let [a false] a 10) 10) - (assert-eq (if-let [a nil] a 10) 10) + (assert-eq (if-let [a nil] a 10) 10)) +(test if-some (assert-eq (if-some [a [1 2 3]] a :nothing) [1 2 3]) (assert-eq (if-some [a false] a :nothing) false) (assert-eq (if-some [a nil] a :nothing) :nothing)) -- cgit v1.2.3