File gdb-testsuite-gdb-tui-new-layout-exp-partly-require-tcl86.patch of Package gdb

Index: gdb-10.1/gdb/testsuite/gdb.tui/new-layout.exp
===================================================================
--- gdb-10.1.orig/gdb/testsuite/gdb.tui/new-layout.exp
+++ gdb-10.1/gdb/testsuite/gdb.tui/new-layout.exp
@@ -42,12 +42,14 @@ gdb_test "tui new-layout example src 1 s
     "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"
+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"
openSUSE Build Service is sponsored by