From 6a105fbd801f10bd6c8cee32fd6d45a279f33e1b Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 4 Jul 2024 18:00:01 -0400
Subject: Add 'defer'

---
 test/defer.tm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 test/defer.tm

(limited to 'test')

diff --git a/test/defer.tm b/test/defer.tm
new file mode 100644
index 00000000..fcc14f16
--- /dev/null
+++ b/test/defer.tm
@@ -0,0 +1,41 @@
+func main():
+    x := 123
+    nums := @[:Int]
+    do:
+        defer:
+            nums:insert(x)
+        x = 999
+
+    >> nums
+    = @[123]
+    >> x
+    = 999
+
+    defer:
+        say("All done!")
+
+    for word in ["first", "second", "third"]:
+        defer:
+            say("Got {word} deferred")
+
+        if word == "second":
+            say("<skipped>")
+            skip
+        else if word == "third":
+            say("<stopped>")
+            stop
+
+        for i in 3:
+            defer:
+                say("Inner loop deferred {i}")
+
+            if i == 2:
+                say("<skipped inner>")
+                skip
+            else if i == 3:
+                say("<stopped inner>")
+                stop
+
+            say("Made it through inner loop")
+
+        say("Made it through the loop")
-- 
cgit v1.2.3