1 # Copyright 2020 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # Ensure that 'layout asm' before starting the inferior puts us in the
17 # asm layout and displays the disassembly for main.
21 standard_testfile tui-layout.c
23 if {[build_executable "failed to prepare" ${testfile} ${srcfile}] == -1} {
27 Term::clean_restart 24 80 $testfile
28 if {![Term::prepare_for_tui]} {
29 unsupported "TUI not supported"
32 # This puts us into TUI mode, and should display the ASM window.
33 Term::command_no_prompt_prefix "layout asm"
34 Term::check_box_contents "check asm box contents" 0 0 80 15 "<main>"
36 # Scroll the ASM window down using the down arrow key. In an ideal
37 # world we'd like to use PageDown here, but currently our terminal
38 # library doesn't support such advanced things.
39 set testname "scroll to end of assembler"
42 # Grab the second line, this is about to become the first line.
43 set line [Term::get_line 2]
45 # Except, if the second line is blank then we are at the end of
46 # the available asm output. Pressing down again _shouldn't_
47 # change the output, however, if GDB is working, and we press down
48 # then the screen won't change, so the call to Term::wait_for
49 # below will just timeout. So for now we avoid testing the edge
51 if {[regexp -- "^\\| +\\|$" $line]} {
52 # Second line is blank, we're at the end of the assembler.
57 # Send the down key to GDB.
60 if {[Term::wait_for [string_to_regexp $line]] \
61 && [Term::get_line 1] == $line} {
62 # We scrolled successfully.
64 fail "$testname (scroll failed)"
69 if { $down_count > 250 } {
70 # Maybe we should accept this as a pass in case a target
71 # really does have loads of assembler to scroll through.
72 fail "$testname (too much assembler)"