Merge branch 'main' into osnr/vulkan-display

2 files changed, 31 insertions, 0 deletions

diff --git a/test/stale.tcl b/test/stale.tcl
new file mode 100644
index 00000000..7b2fcd70
--- /dev/null
+++ b/test/stale.tcl
@@ -0,0 +1,6 @@
+for {set i 0} {$i < 30000} {incr i} {
+    Commit [list Claim the iteration count is $i]
+    Step
+}
+
+assert {[llength [Statements::findMatches [list /someone/ claims the iteration count is /i/]]] == 1}
diff --git a/test/survival.tcl b/test/survival.tcl
new file mode 100644
index 00000000..914ab45d
--- /dev/null
+++ b/test/survival.tcl
@@ -0,0 +1,25 @@
+Assert when we are running {{} {
+    When the collected matches for [list tag /k/ was seen by /x/ at /p/] are /matches/ {
+        set tagsSeen [dict create]
+        foreach m $matches {
+            dict set tagsSeen [dict get $m k] true
+        }
+        dict for {k _} $tagsSeen { Claim tag $k is a tag }
+    }
+    When tag /k/ is a tag {
+        puts "Saw tag $k"
+        On unmatch { error "Should never unmatch" }
+    }
+}}
+Assert we are running
+Step
+
+Commit Omar { Claim tag 1 was seen by Omar at home }
+Commit Mom { Claim tag 1 was seen by Mom at restaurant }
+Step
+
+Commit Omar { Claim tag 1 was seen by Omar at work }
+Step
+
+# Statements::print
+