mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-10-10 01:31:40 +00:00
Code Issues 1 Releases Wiki Activity

Actually test the false path

Browse Source
This commit is contained in:
Pietro Cerutti
2026-08-28 18:16:38 +00:00
parent 5c45e611a8
commit bc696f3673
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite-boot.janet
+3 -4
View File
@@ -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)