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/for-each-line.tcl

@@ -0,0 +1,13 @@
+proc for-each-line {var lines body} {
+    foreach item $lines {
+        uplevel 1 [list set $var $item]
+        uplevel 1 $body
+    }
+}
+
+# Usage: accumulate lengths of each "line"
+set total 0
+for-each-line line {hello world foo} {
+    incr total [string length $line]
+}
+set total