From 89d7098654750f35ae63cb751012f8c7d54aa583 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 9 Mar 2024 19:06:09 -0500
Subject: Add test for secret structs

---
 test/structs.tm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test/structs.tm')

diff --git a/test/structs.tm b/test/structs.tm
index c46c87e4..c038bd07 100644
--- a/test/structs.tm
+++ b/test/structs.tm
@@ -52,3 +52,12 @@ test_mixed()
 
 struct LinkedList(x:Int, next=!LinkedList)
 >> @LinkedList(10, @LinkedList(20))
+
+struct Password(text:Text; secret)
+>> my_pass := Password("Swordfish")
+= Password(...)
+>> users_by_password := {my_pass=> "User1", Password("xxx")=>"User2"}
+= {Password(...)=>"User1", Password(...)=>"User2"}
+>> users_by_password[my_pass]
+= "User1"
+
-- 
cgit v1.2.3