[binutils-gdb] gdb/testsuite: some additional tests in gdb.tui/scroll.exp

[binutils-gdb] gdb/testsuite: some additional tests in gdb.tui/scroll.exp

[Andrew Burgess]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=b1ac644a05245de73b84c23fa6a24eb039a727d7

commit b1ac644a05245de73b84c23fa6a24eb039a727d7
Author: Andrew Burgess <aburgess@redhat.com>
Date:   Tue Feb 1 14:24:15 2022 +0000

    gdb/testsuite: some additional tests in gdb.tui/scroll.exp
    
    This commit just adds an extra check of the src window size prior to
    sending all the commands to gdb.  We also set the cmd window height to
    its existing height, this (obviously) shouldn't change the window
    layout, which we check.
    
    My main motivation was adding the initial window layout check, the
    winheight and recheck are just extras.  All of these test pass both
    before and after this commit.

Diff:
---
 gdb/testsuite/gdb.tui/scroll.exp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gdb/testsuite/gdb.tui/scroll.exp b/gdb/testsuite/gdb.tui/scroll.exp
index 4eaee0c14ee..c23cd2b9abf 100644
--- 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"
 }