From 87507a3e17e7afc8ea01b9e0bb25f9a8dbe6b0f0 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 5 Sep 2023 16:23:46 -0400
Subject: Test struct array. Fix trie ?

---
 test/cstructs.tcl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'test')

diff --git a/test/cstructs.tcl b/test/cstructs.tcl
index 623cd53f..9b2faad6 100644
--- a/test/cstructs.tcl
+++ b/test/cstructs.tcl
@@ -14,11 +14,16 @@ $cc proc omar {} Person {
     };
     return ret;
 }
+$cc proc plural {int npersons Person[] persons} void {}
 $cc compile
 
 puts [omar]
 assert {[dict get [omar] name last] eq "Rizwan"}
 
+plural 2 [list \
+              [dict create name [dict create first Omar last Rizwan] state NJ] \
+              [dict create name [dict create first Californian last Resident] state CA]]
+
 set cc [c create]
 $cc proc plusone {int a} int {
     return a + 1;
-- 
cgit v1.2.3