From 8c90a12e0f86f70360f0f8bd604d421f4fa10023 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Fri, 29 Sep 2023 07:37:33 -0500 Subject: [PATCH] More test cases. --- test/suite-boot.janet | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/test/suite-boot.janet b/test/suite-boot.janet index a275c6bf..76049078 100644 --- a/test/suite-boot.janet +++ b/test/suite-boot.janet @@ -939,6 +939,12 @@ (defn case-3 [&] (def x (break (do (foo))))) (bytecode-roundtrip case-3) +(defn case-4 [&] + (def x (break (break (foo))))) +(bytecode-roundtrip case-4) +(defn case-4 [&] + (def x (break (break (break))))) +(bytecode-roundtrip case-4) # Debug bytecode of these functions # (pp (disasm case-1))