From 079f0527f5eee4cde4d5ac484bc4cc478ae930f3 Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Sun, 5 Oct 2025 22:50:09 +0200
Subject: [PATCH] [gdb/testsuite, tclint] Fix lib/check-test-names.exp

---
 gdb/tclint.toml                        | 1 -
 gdb/testsuite/lib/check-test-names.exp | 6 +++---
 2 files changed, 3 insertions(+), 4 deletions(-)

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"
 	}
 
-- 
2.47.3