mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
213516ef31
This commit is the result of running the gdb/copyright.py script, which automated the update of the copyright year range for all source files managed by the GDB project to be updated to include year 2023.
73 lines
2.1 KiB
Plaintext
73 lines
2.1 KiB
Plaintext
# Copyright 2019-2023 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# Simple test of TUI register window.
|
|
|
|
tuiterm_env
|
|
|
|
standard_testfile tui-layout.c
|
|
|
|
if {[build_executable "failed to prepare" ${testfile} ${srcfile}] == -1} {
|
|
return -1
|
|
}
|
|
|
|
Term::clean_restart 24 80 $testfile
|
|
|
|
if {![runto_main]} {
|
|
perror "test suppressed"
|
|
return
|
|
}
|
|
|
|
if {![Term::enter_tui]} {
|
|
unsupported "TUI not supported"
|
|
return
|
|
}
|
|
|
|
Term::check_contents "source at startup" "\\|.*21 *return 0"
|
|
|
|
Term::command "layout regs"
|
|
Term::check_box "register box" 0 0 80 8
|
|
Term::check_box "source box in regs layout" 0 7 80 8
|
|
|
|
set text [Term::get_line 1]
|
|
# Just check for any register window content at all.
|
|
Term::check_contents "any register contents" "\\|.*\[^ \].*\\|"
|
|
|
|
|
|
# Check that we can successfully cause the register window to appear
|
|
# using the 'tui reg next' and 'tui reg prev' commands.
|
|
foreach_with_prefix cmd { next prev } {
|
|
Term::clean_restart 24 80 $testfile
|
|
|
|
if {![runto_main]} {
|
|
perror "test suppressed"
|
|
return
|
|
}
|
|
|
|
if {![Term::enter_tui]} {
|
|
unsupported "TUI not supported"
|
|
return
|
|
}
|
|
|
|
Term::command "tui reg ${cmd}"
|
|
Term::check_box "register box" 0 0 80 8
|
|
Term::check_box "source box in regs layout" 0 7 80 8
|
|
Term::check_region_contents "check register group title" \
|
|
0 0 80 1 "Register group: "
|
|
set contents [Term::get_region 0 15 80 8 "\r\n"]
|
|
gdb_assert {![regexp -- "unknown register group '${cmd}'" $contents]} \
|
|
"check register group is known"
|
|
}
|