From 18db0fcee83f448258c17c7ac6ab80c623685666 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 25 Feb 2024 14:41:28 -0500
Subject: Add test for table iteration

---
 test/tables.tm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'test')

diff --git a/test/tables.tm b/test/tables.tm
index 2e7c4798..891e0614 100644
--- a/test/tables.tm
+++ b/test/tables.tm
@@ -9,6 +9,12 @@
 >> t["???"]
 = 999
 
+t_str := ""
+for k,v in t
+	t_str ++= "({k}=>{v})"
+>> t_str
+= "(one=>1)(two=>2)"
+
 >> #t
 = 2
 >> t.default
@@ -37,3 +43,9 @@
 = !Int64
 >> t2.fallback
 = ?(readonly){"one"=>1, "two"=>2; default=999}
+
+t2_str := ""
+for k,v in t2
+	t2_str ++= "({k}=>{v})"
+>> t2_str
+= "(three=>3)"
-- 
cgit v1.2.3