# Copyright 2019-2024 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 . # Test TUI resizing. 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::resize 40 90 Term::check_box "source box after resize" 0 0 90 26 # Check that resizing to less than 3 lines doesn't cause problems. foreach lines { 2 1 } { with_test_prefix lines=$lines { Term::resize $lines 90 0 Term::wait_for "" Term::check_region_contents "has prompt" 0 0 90 $lines "$gdb_prompt" } }