From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id DB40F38543BE; Fri, 13 Jan 2023 20:40:26 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org DB40F38543BE DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1673642426; bh=yxLl3ypN9NgvfsjXMo7AavJELgYGtqwEw+phokfDw0Q=; h=From:To:Subject:Date:From; b=XweZSAzIkIQbjCnHGALJL+ecHAm1eU1+71TIKAofvWRFjsYMX7VgII7Bq+6jb4cti BD23BcMuknhEdqfn79g7gRksryqyPVzrrwuIWIzuLMXGgilZPER8GW/a+t98x4EFDf HIdv3BIoom+6vWN9sY+z4p/xshGvBj6ra7qCkTQY= Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Tom Tromey To: gdb-cvs@sourceware.org Subject: [binutils-gdb] Rename to allow_tui_tests X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: e71b6502bffecbbdd99a791c6ee7545603bafbc1 X-Git-Newrev: b5075fb68d4b7a9ed1505150a395755260953809 Message-Id: <20230113204026.DB40F38543BE@sourceware.org> Date: Fri, 13 Jan 2023 20:40:26 +0000 (GMT) List-Id: https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3Db5075fb68d4b= 7a9ed1505150a395755260953809 commit b5075fb68d4b7a9ed1505150a395755260953809 Author: Tom Tromey Date: Sun Jan 8 12:42:29 2023 -0700 Rename to allow_tui_tests =20 This changes skip_tui_tests to invert the sense, and renames it to allow_tui_tests. It also rewrites this function to use the output of "gdb --configuration", and it adds a note about the state of the TUI to that output. Diff: --- gdb/testsuite/gdb.base/options.exp | 2 +- gdb/testsuite/gdb.python/tui-window-disabled.exp | 4 +--- gdb/testsuite/gdb.python/tui-window-names.exp | 6 +----- gdb/testsuite/gdb.python/tui-window.exp | 5 +---- gdb/testsuite/gdb.tui/completion.exp | 4 +++- gdb/testsuite/gdb.tui/tui-disasm-long-lines.exp | 2 +- gdb/testsuite/gdb.tui/tui-layout.exp | 6 ++---- gdb/testsuite/gdb.tui/tui-nl-filtered-output.exp | 6 ++---- gdb/testsuite/lib/completion-support.exp | 2 +- gdb/testsuite/lib/gdb.exp | 17 ++++------------- gdb/testsuite/lib/tuiterm.exp | 2 +- gdb/top.c | 10 ++++++++++ 12 files changed, 28 insertions(+), 38 deletions(-) diff --git a/gdb/testsuite/gdb.base/options.exp b/gdb/testsuite/gdb.base/op= tions.exp index 2be7f878e7e..486192e3472 100644 --- a/gdb/testsuite/gdb.base/options.exp +++ b/gdb/testsuite/gdb.base/options.exp @@ -47,7 +47,7 @@ if { ![readline_is_used] } { return -1 } =20 -set tui_supported_p [expr ![skip_tui_tests]] +set tui_supported_p [allow_tui_tests] =20 # Check the completion result, as returned by the "maintenance show # test-options-completion-result" command. TEST is used as test name. diff --git a/gdb/testsuite/gdb.python/tui-window-disabled.exp b/gdb/testsui= te/gdb.python/tui-window-disabled.exp index 36ecb0b5ef1..57d41cdbf8b 100644 --- a/gdb/testsuite/gdb.python/tui-window-disabled.exp +++ b/gdb/testsuite/gdb.python/tui-window-disabled.exp @@ -22,6 +22,7 @@ # though the tui should be disabled. =20 load_lib gdb-python.exp +require allow_tui_tests tuiterm_env =20 standard_testfile @@ -31,9 +32,6 @@ if {[build_executable "failed to prepare" ${testfile} ${s= rcfile}] =3D=3D -1} { } =20 clean_restart -if {[skip_tui_tests]} { - return -} =20 # Copy the Python script to where the tests are being run. set remote_python_file [gdb_remote_download host \ diff --git a/gdb/testsuite/gdb.python/tui-window-names.exp b/gdb/testsuite/= gdb.python/tui-window-names.exp index 125a5f5a9b5..1a25be89299 100644 --- a/gdb/testsuite/gdb.python/tui-window-names.exp +++ b/gdb/testsuite/gdb.python/tui-window-names.exp @@ -18,16 +18,12 @@ =20 load_lib gdb-python.exp =20 -require allow_python_tests +require allow_python_tests allow_tui_tests =20 tuiterm_env =20 clean_restart =20 -if {[skip_tui_tests]} { - return -} - # Define a function we can use as a window constructor. If this ever # gets called we'll throw an error, but that's OK, this test doesn't # actually try to create any windows. diff --git a/gdb/testsuite/gdb.python/tui-window.exp b/gdb/testsuite/gdb.py= thon/tui-window.exp index 529ed16b641..af2a866e78b 100644 --- a/gdb/testsuite/gdb.python/tui-window.exp +++ b/gdb/testsuite/gdb.python/tui-window.exp @@ -16,7 +16,7 @@ # Test a TUI window implemented in Python. =20 load_lib gdb-python.exp -require allow_python_tests +require allow_python_tests allow_tui_tests tuiterm_env =20 # This test doesn't care about the inferior. @@ -27,9 +27,6 @@ if {[build_executable "failed to prepare" ${testfile} ${s= rcfile}] =3D=3D -1} { } =20 clean_restart -if {[skip_tui_tests]} { - return -} =20 Term::clean_restart 24 80 $testfile =20 diff --git a/gdb/testsuite/gdb.tui/completion.exp b/gdb/testsuite/gdb.tui/c= ompletion.exp index 00956488c9f..a3b3114a472 100644 --- a/gdb/testsuite/gdb.tui/completion.exp +++ b/gdb/testsuite/gdb.tui/completion.exp @@ -13,10 +13,12 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . =20 +require allow_tui_tests + gdb_exit gdb_start =20 -if {[skip_tui_tests] || [target_info exists gdb,nointerrupts]} { +if {[target_info exists gdb,nointerrupts]} { return } =20 diff --git a/gdb/testsuite/gdb.tui/tui-disasm-long-lines.exp b/gdb/testsuit= e/gdb.tui/tui-disasm-long-lines.exp index 0ad91308ca4..7e3cff3950b 100644 --- a/gdb/testsuite/gdb.tui/tui-disasm-long-lines.exp +++ b/gdb/testsuite/gdb.tui/tui-disasm-long-lines.exp @@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "$binf= ile" \ =20 clean_restart "$binfile" =20 -if {[skip_tui_tests]} { +if {![allow_tui_tests]} { # TUI support is disabled. Check for error message. gdb_test "layout asm" "Undefined command: \"layout\". Try \"help\"." return diff --git a/gdb/testsuite/gdb.tui/tui-layout.exp b/gdb/testsuite/gdb.tui/t= ui-layout.exp index 97734cf7b68..2c502191d11 100644 --- a/gdb/testsuite/gdb.tui/tui-layout.exp +++ b/gdb/testsuite/gdb.tui/tui-layout.exp @@ -16,16 +16,14 @@ # Minimal testcase that just checks that the various "layout $foo" # commands do not cause gdb to crash. =20 +require allow_tui_tests + standard_testfile =20 if {[prepare_for_testing "failed to prepare" ${testfile} ${srcfile}]} { return -1 } =20 -if {[skip_tui_tests]} { - return -} - # Test one layout command. EXECUTION indicates whether to activate # the layout with or without execution. =20 diff --git a/gdb/testsuite/gdb.tui/tui-nl-filtered-output.exp b/gdb/testsui= te/gdb.tui/tui-nl-filtered-output.exp index 5a2a4205bb5..b7ea67cf723 100644 --- a/gdb/testsuite/gdb.tui/tui-nl-filtered-output.exp +++ b/gdb/testsuite/gdb.tui/tui-nl-filtered-output.exp @@ -30,13 +30,11 @@ # # (gdb) =20 +require allow_tui_tests + gdb_exit gdb_start =20 -if {[skip_tui_tests]} { - return -} - # Enable the TUI. =20 set test "tui enable" diff --git a/gdb/testsuite/lib/completion-support.exp b/gdb/testsuite/lib/c= ompletion-support.exp index f47f1d3ec50..bf9c5ad352c 100644 --- a/gdb/testsuite/lib/completion-support.exp +++ b/gdb/testsuite/lib/completion-support.exp @@ -555,7 +555,7 @@ proc test_gdb_completion_offers_commands {input_line} { =20 # TUI adds additional commands to the possible completions, so we # need different patterns depending on whether or not it is enabled. - if { [skip_tui_tests] } { + if { ![allow_tui_tests] } { test_gdb_complete_multiple $input_line "" "" { "!" "actions" diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 31f11b22f87..5359315667e 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -2572,20 +2572,11 @@ gdb_caching_proc allow_dlmopen_tests { return $allow_dlmopen_tests } =20 -# Return 1 if we should skip tui related tests. +# Return 1 if we should allow TUI-related tests. =20 -proc skip_tui_tests {} { - global gdb_prompt - - gdb_test_multiple "help layout" "verify tui support" { - -re "Undefined command: \"layout\".*$gdb_prompt $" { - return 1 - } - -re "$gdb_prompt $" { - } - } - - return 0 +gdb_caching_proc allow_tui_tests { + set output [remote_exec host $::GDB --configuration] + return [expr {[string first "--enable-tui" $output] !=3D -1}] } =20 # Test files shall make sure all the test result lines in gdb.sum are diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp index 591c4ca9c4c..c38ccbbdbd7 100644 --- a/gdb/testsuite/lib/tuiterm.exp +++ b/gdb/testsuite/lib/tuiterm.exp @@ -778,7 +778,7 @@ namespace eval Term { # Setup ready for starting the tui, but don't actually start it. # Returns 1 on success, 0 if TUI tests should be skipped. proc prepare_for_tui {} { - if {[skip_tui_tests]} { + if {![allow_tui_tests]} { return 0 } =20 diff --git a/gdb/top.c b/gdb/top.c index c32ab896a0e..205eb360ba3 100644 --- a/gdb/top.c +++ b/gdb/top.c @@ -1649,6 +1649,16 @@ This GDB was configured as follows:\n\ ")); #endif =20 +#ifdef TUI + gdb_printf (stream, _("\ + --enable-tui\n\ +")); +#else + gdb_printf (stream, _("\ + --disable-tui\n\ +")); +#endif + #ifdef RELOC_SRCDIR gdb_printf (stream, _("\ --with-relocated-sources=3D%s\n\