[gdb/testsuite, tclint] Fix lib/go.exp

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 589f352f056a57d8d49487e695eab86f1a03cd16..522b6eced6b16a688453409699c486e832ced9dc 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -43,7 +43,6 @@ exclude = [
 "gdb/testsuite/lib/gdbserver-support.exp",
 "gdb/testsuite/lib/gdb-utils.exp",
 "gdb/testsuite/lib/gen-perf-test.exp",
-"gdb/testsuite/lib/go.exp",
 "gdb/testsuite/lib/jit-elf-helpers.exp",
 "gdb/testsuite/lib/mi-support.exp",
 "gdb/testsuite/lib/objc.exp",

diff --git a/gdb/testsuite/lib/go.exp b/gdb/testsuite/lib/go.exp
index 5f668e29238288d1c46fb53caf128b1183d75a3a..dcf7ffac9a18b81064cee19583f44fc35fe6621b 100644 (file)
--- a/gdb/testsuite/lib/go.exp
+++ b/gdb/testsuite/lib/go.exp
@@ -20,11 +20,12 @@
 # The result is 1 (true) for success, 0 (false) for failure.
 
 proc set_lang_go {} {
-    if [gdb_test_no_output "set language go"] {
+    if {[gdb_test_no_output "set language go"]} {
        return 0
     }
-    if [gdb_test "show language" ".* source language is \"go\"." \
-          "set language to \"go\""] {
+    if {[gdb_test "show language" \
+            [string_to_regexp {The current source language is "go".}] \
+            {set language to "go"}]} {
        return 0
     }
     return 1