From 369a7a242bc4a7f19c506581afbc2fbb701d2905 Mon Sep 17 00:00:00 2001
From: Roman Iten <roman.iten@gapfruit.com>
Date: Wed, 22 Jan 2025 10:07:24 +0100
Subject: [PATCH] tool/run: introduce generalized 'assert'-proc

Issue #5432
---
 tool/run/run | 33 ++++++++++++++++++++++++++++-----
 1 file changed, 28 insertions(+), 5 deletions(-)

diff --git a/tool/run/run b/tool/run/run
index dc210ad579..9831de32ef 100755
--- a/tool/run/run
+++ b/tool/run/run
@@ -24,15 +24,38 @@ proc strip_whitespace {string} {
 }
 
 
+##
+# Check if the specified requirement is satisfied
+#
+# This is a reimplementation of TCLs ::control::assert, but tailored for the
+# run tool.
+#
+proc assert { expression { msg "" } } {
+
+	set code [catch {uplevel 1 [list expr $expression]} res]
+	if {$code} {
+		return -code $code $res
+	}
+	if {![string is boolean -strict $res]} {
+		return -code error "invalid boolean expression: $expression"
+	}
+
+	if {$res} {return}
+
+	puts stderr "Test requires '$expression'"
+	if {$msg != ""} {
+		puts stderr $msg
+	}
+
+	exit 1
+}
+
+
 ##
 # Check if the specified spec requirement is satisfied
 #
 proc assert_spec {spec} {
-	global specs
-	if {[lsearch $specs $spec] == -1} {
-		puts stderr "Test requires '$spec'"
-		exit 1
-	}
+	assert {[have_spec $spec]}
 }