fixup! tool/run: introduce generalized 'assert'-proc

Issue genodelabs#5432
rite · Feb 13, 2025 · da3b393 · da3b393
1 parent e19c503
commit da3b393
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tool/run/run b/tool/run/run
@@ -30,7 +30,7 @@ proc strip_whitespace {string} {
 # This is a reimplementation of TCLs ::control::assert, but tailored for the
 # run tool.
 #
-proc assert {expression args} {
+proc assert { expression { msg "" } } {
 
 	set code [catch {uplevel 1 [list expr $expression]} res]
 	if {$code} {
@@ -43,8 +43,8 @@ proc assert {expression args} {
 	if {$res} {return}
 
 	puts stderr "Test requires '$expression'"
-	if {[llength $args]} {
-		puts stderr [join $args]
+	if {$msg != ""} {
+		puts stderr $msg
 	}
 
 	exit 1