gdb/testsuite: some additional tests in gdb.tui/scroll.exp

[binutils-gdb.git] / gdb / testsuite / gdb.tui / scroll.exp

diff --git a/gdb/testsuite/gdb.tui/scroll.exp b/gdb/testsuite/gdb.tui/scroll.exp
index 4eaee0c14eec9776e6bc05201911e7c83bcce9c1..c23cd2b9abf9a3036d53a50984d3b2fbf0eb29ab 100644 (file)
--- a/gdb/testsuite/gdb.tui/scroll.exp
+++ b/gdb/testsuite/gdb.tui/scroll.exp
@@ -55,6 +55,10 @@ Term::check_region_contents "check cmd window" 0 16 80 8 \
 Term::command "tui new-layout flip cmd 1 src 1"
 Term::command "layout flip"
 
+Term::check_box "src window" 0 8 80 16
+Term::command "winheight cmd 8"
+Term::check_box "src window after resize" 0 8 80 16
+
 for {set i 10} {$i < 20} {incr i 1} {
     Term::command "p $i"
 }