From d06c63c70c67af6db46cd2a1e3ed002e4b280a8b Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 25 Feb 2024 14:35:25 -0500
Subject: Table field access for .keys, .values, .default, .fallback

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

(limited to 'test')

diff --git a/test/tables.tm b/test/tables.tm
new file mode 100644
index 00000000..5b53fc80
--- /dev/null
+++ b/test/tables.tm
@@ -0,0 +1,31 @@
+
+>> t := {"one"=>1, "two"=>2; default=999}
+= {"one"=>1, "two"=>2; default=999}
+>> t["one"]
+= 1
+>> t["two"]
+= 2
+>> t["???"]
+= 999
+>> t.default
+= ?(readonly)999
+>> t.fallback
+= !{Str=>Int64}
+
+>> t.keys
+= ["one", "two"]
+>> t.values
+= [1, 2]
+
+>> t2 := {"three"=>3; fallback=t}
+= {"three"=>3; fallback={"one"=>1, "two"=>2; default=999}}
+>> t2["one"]
+= 1
+>> t2["three"]
+= 3
+>> t2["???"]
+= 999
+>> t2.default
+= !Int64
+>> t2.fallback
+= ?(readonly){"one"=>1, "two"=>2; default=999}
-- 
cgit v1.2.3