mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-25 20:57:40 +00:00
Code Issues 1 Releases Wiki Activity

More test cases.

Browse Source
This commit is contained in:
Calvin Rose
2023-09-29 07:37:33 -05:00
parent 2d54e88e74
commit 8c90a12e0f
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/suite-boot.janet
View File

@@ -939,6 +939,12 @@
(defn case-3 [&] (defn case-3 [&]
(def x (break (do (foo))))) (def x (break (do (foo)))))
(bytecode-roundtrip case-3) (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 # Debug bytecode of these functions
# (pp (disasm case-1)) # (pp (disasm case-1))