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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 128951283e7ae47c7a7ec040fe59009703b58270..e71f2e0c636640b82e6e025859e1c419400b959a 100644 (file)
--- 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 d099ffcb0fc5c3ab9959d154451f3d996bf39cd7..992117229ec851c4977cb1a85e8f2c21be86ddfd 100644 (file)
--- 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"
        }