diff options
Diffstat (limited to 'gdb/testsuite/gdb.tui/new-layout.exp')
| -rw-r--r-- | gdb/testsuite/gdb.tui/new-layout.exp | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.tui/new-layout.exp b/gdb/testsuite/gdb.tui/new-layout.exp index 8382322..b71de7d 100644 --- a/gdb/testsuite/gdb.tui/new-layout.exp +++ b/gdb/testsuite/gdb.tui/new-layout.exp @@ -52,6 +52,11 @@ gdb_test_no_output "tui new-layout example2 {asm 1 status 0} 1 cmd 1" gdb_test "help layout example2" \ "Apply the \"example2\" layout.*tui new-layout example2 {asm 1 status 0} 1 cmd 1" +gdb_test_no_output "tui new-layout h {-horizontal asm 1 src 1} 1 status 0 cmd 1" + +gdb_test "help layout h" \ + "Apply the \"h\" layout.*tui new-layout h {-horizontal asm 1 src 1} 1 status 0 cmd 1" + if {![Term::enter_tui]} { unsupported "TUI not supported" } @@ -62,4 +67,18 @@ gdb_assert {![string match "No Source Available" $text]} \ Term::command "layout example" Term::check_contents "example layout shows assembly" \ - "No Assembly Available" + "$hex <main>" + +Term::command "layout h" +Term::check_box "left window box" 0 0 40 15 +Term::check_box "right window box" 39 0 41 15 +Term::check_contents "horizontal display" \ + "$hex <main>.*21.*return 0" + +Term::command "winheight src - 5" +Term::check_box "left window box after shrink" 0 0 40 10 +Term::check_box "right window box after shrink" 39 0 41 10 + +Term::command "winheight src + 5" +Term::check_box "left window box after grow" 0 0 40 15 +Term::check_box "right window box after grow" 39 0 41 15 |