From bc696f367372a8a1f2b5d90d35a53026ef3e19ba Mon Sep 17 00:00:00 2001 From: Pietro Cerutti Date: Fri, 28 Aug 2026 18:16:38 +0000 Subject: [PATCH] Actually test the false path --- test/suite-boot.janet | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/test/suite-boot.janet b/test/suite-boot.janet index 2b8c8842..8d0ab52f 100644 --- a/test/suite-boot.janet +++ b/test/suite-boot.janet @@ -141,10 +141,9 @@ (assert (= (if-let [[a b] my-array] a) 1) "if-let 5") (assert (= (if-let [{:a a :b b} {:a 1 :b 2}] b) 2) "if-let 6") (assert (= (if-let [[a b] nil] :t :f) :f) "if-let 7") -(assert (= (if-let [[a b] ["a" "b"]] a a) "a")) -(assert (= (if-let [[a b] ["a" "b"]] b b) "b")) -(assert (= (if-let [[a b] ["a" nil]] a a) "a")) -(assert (= (if-let [[a b] ["a" nil]] b b) nil)) +(assert (= (if-let [a nil b 'b c 'c] [a b c] [a b c]) [nil nil nil])) +(assert (= (if-let [a 'a b nil c 'c] [a b c] [a b c]) ['a nil nil])) +(assert (= (if-let [a 'a b 'b c nil] [a b c] [a b c]) ['a 'b nil])) # #1191 (var cnt 0)