diff options
Diffstat (limited to 'gdb/testsuite/gdb.tui/new-layout.exp')
| -rw-r--r-- | gdb/testsuite/gdb.tui/new-layout.exp | 16 |
1 files changed, 10 insertions, 6 deletions
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" |