Skip to content

Commit 361213f

Browse files
committed
add some tests for the (try) macro
1 parent f1ec0cc commit 361213f

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

test/suite-boot.janet

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1023,4 +1023,11 @@
10231023
(assert (deep-not= @{:key1 "value1" [@"key2"] @"value2"}
10241024
@{:key1 "value1" [@"key2"] @"value2"}) "deep= mutable keys")
10251025

1026+
# different try overloads
1027+
(assert (= (try (error :error) ([] :caught)) :caught))
1028+
(assert (= (try (error :error) ([e] e)) :error))
1029+
(assert (= (try (error :error) ([e fib] (fiber? fib))) true))
1030+
# regression test for #1659
1031+
(assert (= (try (error :error) ([_ _] 2)) 2))
1032+
10261033
(end-suite)

0 commit comments

Comments
 (0)