From: Tom de Vries <tdevries@suse.de>
Date: Sun, 5 Oct 2025 20:50:09 +0000 (+0200)
Subject: [gdb/testsuite, tclint] Fix lib/check-test-names.exp
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=079f0527f5eee4cde4d5ac484bc4cc478ae930f3;p=thirdparty%2Fbinutils-gdb.git

[gdb/testsuite, tclint] Fix lib/check-test-names.exp
---

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 128951283e7..e71f2e0c636 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -35,7 +35,6 @@ exclude = [
 "gdb/testsuite/config",
 "gdb/testsuite/lib/aarch64.exp",
 "gdb/testsuite/lib/aarch64-scalable.exp",
-"gdb/testsuite/lib/check-test-names.exp",
 "gdb/testsuite/lib/cp-support.exp",
 "gdb/testsuite/lib/dwarf.exp",
 "gdb/testsuite/lib/future.exp",
diff --git a/gdb/testsuite/lib/check-test-names.exp b/gdb/testsuite/lib/check-test-names.exp
index d099ffcb0fc..992117229ec 100644
--- a/gdb/testsuite/lib/check-test-names.exp
+++ b/gdb/testsuite/lib/check-test-names.exp
@@ -97,7 +97,7 @@ namespace eval ::CheckTestNames {
 	set pos [string first ": " $message]
 	if { $pos > -1 } {
 	    # The '+ 2' is so we skip the ': ' we found above.
-	    return  [string range $message [expr $pos + 2] end]
+	    return  [string range $message [expr {$pos + 2}] end]
 	}
 
 	return $message
@@ -120,11 +120,11 @@ namespace eval ::CheckTestNames {
     proc check { message } {
 	set message [ _strip_status $message ]
 
-	if [ _check_paths $message ] {
+	if {[ _check_paths $message ]} {
 	    clone_output "PATH: $message"
 	}
 
-	if [ _check_duplicates $message ] {
+	if {[ _check_duplicates $message ]} {
 	    clone_output "DUPLICATE: $message"
 	}