tcl: classic programs — for-each-line, assert, with-temp-var (+3 tests, 228 total)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

lib/tcl/tests/programs/assert.tcl

@@ -0,0 +1,13 @@
+proc assert {expr_str} {
+    set result [uplevel 1 [list expr $expr_str]]
+    if {!$result} {
+        error "Assertion failed: $expr_str"
+    }
+}
+
+set x 42
+assert {$x == 42}
+assert {$x > 0}
+set x 10
+assert {$x < 100}
+set x