From 0c34033b72d506789e8d197b861538ba677f9ef5 Mon Sep 17 00:00:00 2001 From: Ian Henry Date: Fri, 24 Oct 2025 21:54:05 -0700 Subject: [PATCH] add some tests for the (try) macro --- test/suite-boot.janet | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/suite-boot.janet b/test/suite-boot.janet index 7532a972..e94ea16a 100644 --- a/test/suite-boot.janet +++ b/test/suite-boot.janet @@ -1023,4 +1023,11 @@ (assert (deep-not= @{:key1 "value1" [@"key2"] @"value2"} @{:key1 "value1" [@"key2"] @"value2"}) "deep= mutable keys") +# different try overloads +(assert (= (try (error :error) ([] :caught)) :caught)) +(assert (= (try (error :error) ([e] e)) :error)) +(assert (= (try (error :error) ([e fib] [e (fiber? fib)])) [:error true])) +# regression test for #1659 +(assert (= (try (error :error) ([_ _] :caught)) :caught)) + (end-suite)