From 18db0fcee83f448258c17c7ac6ab80c623685666 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 25 Feb 2024 14:41:28 -0500 Subject: [PATCH] Add test for table iteration --- test/tables.tm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/tables.tm b/test/tables.tm index 2e7c479..891e061 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)"