diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.tui/new-layout.exp | 16 |
2 files changed, 16 insertions, 6 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 09cd099..e336260 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2020-12-10 Tom de Vries <tdevries@suse.de> + + PR testsuite/26947 + * gdb.tui/new-layout.exp: Don't execute tests with unbalanced curly + braces for tcl 8.5 and earlier. + 2020-12-09 Simon Marchi <simon.marchi@efficios.com> PR 26875, PR 26901 diff --git a/gdb/testsuite/gdb.tui/new-layout.exp b/gdb/testsuite/gdb.tui/new-layout.exp index d736e7f..cd9b15b 100644 --- a/gdb/testsuite/gdb.tui/new-layout.exp +++ b/gdb/testsuite/gdb.tui/new-layout.exp @@ -44,12 +44,16 @@ gdb_test "tui new-layout example src 1 src 1" \ "Window \"src\" seen twice in layout" gdb_test "tui new-layout example src 1" \ "New layout does not contain the \"cmd\" window" -gdb_test "tui new-layout example src 1\}" \ - "Extra '\}' in layout specification" -gdb_test "tui new-layout example {src 1} 1\}" \ - "Extra '\}' in layout specification" -gdb_test "tui new-layout example \{src 1" \ - "Missing '\}' in layout specification" + +# Avoid unbalanced curly braces problems with tcl 8.5. +if { [tcl_version_at_least 8 6] } { + gdb_test "tui new-layout example src 1\}" \ + "Extra '\}' in layout specification" + gdb_test "tui new-layout example {src 1} 1\}" \ + "Extra '\}' in layout specification" + gdb_test "tui new-layout example \{src 1" \ + "Missing '\}' in layout specification" +} gdb_test_no_output "tui new-layout example asm 1 status 0 cmd 1" |