diff options
Diffstat (limited to 'gdb/testsuite/lib/tuiterm.exp')
-rw-r--r-- | gdb/testsuite/lib/tuiterm.exp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp index 5e4235da942..195f14666f4 100644 --- a/gdb/testsuite/lib/tuiterm.exp +++ b/gdb/testsuite/lib/tuiterm.exp @@ -1004,6 +1004,14 @@ namespace eval Term { gdb_assert {[regexp -- $regexp $contents]} $test_name } + # As check_contents, but check that the text contents of the terminal does + # not match the regular expression. + proc check_contents_not {test_name regexp} { + dump_screen + set contents [get_all_lines] + gdb_assert {![regexp -- $regexp $contents]} $test_name + } + # Get the region of the screen described by X, Y, WIDTH, # and HEIGHT, and separate the lines using SEP. proc get_region { x y width height sep } { |