Use require with is_remote
authorTom Tromey <tom@tromey.com>
Sun, 22 Jan 2023 20:38:26 +0000 (13:38 -0700)
committerTom Tromey <tom@tromey.com>
Wed, 25 Jan 2023 16:02:11 +0000 (09:02 -0700)
This changes some tests to use require with 'is_remote', rather than
an explicit test.  This adds uniformity helps clean up more spots
where a test might exit early without any notification.

43 files changed:
gdb/testsuite/gdb.base/annotate-symlink.exp
gdb/testsuite/gdb.base/argv0-symlink.exp
gdb/testsuite/gdb.base/attach-pie-misread.exp
gdb/testsuite/gdb.base/auto-load.exp
gdb/testsuite/gdb.base/break-interp.exp
gdb/testsuite/gdb.base/bt-on-fatal-signal.exp
gdb/testsuite/gdb.base/fullname.exp
gdb/testsuite/gdb.base/fullpath-expand.exp
gdb/testsuite/gdb.base/gdbhistsize-history.exp
gdb/testsuite/gdb.base/gdbinit-history.exp
gdb/testsuite/gdb.base/info-fun.exp
gdb/testsuite/gdb.base/libsegfault.exp
gdb/testsuite/gdb.base/macro-source-path.exp
gdb/testsuite/gdb.base/prelink.exp
gdb/testsuite/gdb.base/realname-expand.exp
gdb/testsuite/gdb.base/skip-solib.exp
gdb/testsuite/gdb.base/solib-corrupted.exp
gdb/testsuite/gdb.base/solib-nodir.exp
gdb/testsuite/gdb.base/solib-search.exp
gdb/testsuite/gdb.base/startup-with-shell.exp
gdb/testsuite/gdb.base/style-logging.exp
gdb/testsuite/gdb.base/valgrind-bt.exp
gdb/testsuite/gdb.base/valgrind-disp-step.exp
gdb/testsuite/gdb.base/valgrind-infcall-2.exp
gdb/testsuite/gdb.base/valgrind-infcall.exp
gdb/testsuite/gdb.base/warning.exp
gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp
gdb/testsuite/gdb.dwarf2/dwzbuildid.exp
gdb/testsuite/gdb.dwarf2/dwznolink.exp
gdb/testsuite/gdb.dwarf2/fission-base.exp
gdb/testsuite/gdb.dwarf2/fission-loclists-pie.exp
gdb/testsuite/gdb.dwarf2/fission-loclists.exp
gdb/testsuite/gdb.dwarf2/fission-multi-cu.exp
gdb/testsuite/gdb.dwarf2/fission-reread.exp
gdb/testsuite/gdb.dwarf2/no-gnu-debuglink.exp
gdb/testsuite/gdb.linespec/macro-relative.exp
gdb/testsuite/gdb.python/py-pp-maint.exp
gdb/testsuite/gdb.server/abspath.exp
gdb/testsuite/gdb.server/server-connect.exp
gdb/testsuite/gdb.server/server-pipe.exp
gdb/testsuite/gdb.threads/attach-into-signal.exp
gdb/testsuite/gdb.threads/attach-slow-waitpid.exp
gdb/testsuite/gdb.threads/attach-stopped.exp

index a0f8ed9eabc77be1deed28cf4afd9a79d24fb6b2..734124067928f98ee2f540f14230da372ca03af5 100644 (file)
 
 standard_testfile realname-expand.c realname-expand-real.c
 
-if [is_remote host] {
-    unsupported "compiling on a remote host does not support a filename with directory."
-    return 0
-}
+# Compiling on a remote host does not support a filename with
+# directory.
+require {!is_remote host}
 
 set srcdirabs [file join [pwd] $srcdir]
 set srcfilelink [standard_output_file realname-expand-link.c]
index b321a2442219f2eaf284d23e85060e38e1714750..57b348b36bbd3b802f2ef9eba7837aa90f3d0810 100644 (file)
 
 require isnative
 
-if { [is_remote host] } {
-    unsupported "argv0-symlink.exp not supported on remote host"
-    return -1
-}
+require {!is_remote host}
 
 standard_testfile
 
index 96f02429abd5e748e63e9d1258acf349b65d7819..484bd487a3b81f42350f6701b6b3a45850a76fef 100644 (file)
@@ -15,9 +15,8 @@
 
 # This test only works on GNU/Linux.
 require !use_gdb_stub isnative allow_shlib_tests
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 load_lib prelink-support.exp
 
index 23cf72a942f9bf3d46e7f88d5fcbf908fbf64940..02ce046773051acb507e62cb1e2fa54527c028b5 100644 (file)
@@ -15,9 +15,7 @@
 
 standard_testfile
 
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 set targetdir "${binfile}.dir"
 set sourcescript "${srcdir}/${subdir}/${testfile}-script"
index 9652b32b63243f1a8c5e16a542e48cd7eee207d7..6061c739d05179cb5b61292f563684aa0a6a61ef 100644 (file)
@@ -15,9 +15,8 @@
 
 # This test only works on GNU/Linux.
 require !use_gdb_stub isnative allow_shlib_tests
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 load_lib prelink-support.exp
 
index 128db758284cefbced121dc061607a692ec17e90..d0364cc6b8972a3d393b3dedfb295e445612cddc 100644 (file)
@@ -23,10 +23,7 @@ standard_testfile
 # remote host (will the signal go to GDB, or the program that
 # established the connection to the remote host?), so just skip this
 # test for remote host setups.
-if {[is_remote host]} {
-    untested $testfile
-    return -1
-}
+require {!is_remote host}
 
 if {[prepare_for_testing "failed to prepare" $testfile $srcfile]} {
     return -1
index 19da89eae45222fde8b1a21e00678882850053cc..51ccb012688c885fa7af0cea86e31b6baced2d16 100644 (file)
 
 standard_testfile
 
-# We rely on being able to copy things around.
-
-if { [is_remote host] } {
-    untested "setting breakpoints by full path"
-    return -1
-}
+# We rely on being able to copy things around and being able to set
+# breakpoints by full path.
+require {!is_remote host}
 
 # Create a temporary file in the build directory.  Use a different
 # filename in case ${srcdir} == ${objdir}.
index aee23fe0fea2f05a27aa02782d9e84af5b23ac25..285d0be08ec2b97cb33a48975ff9e542bc762ffa 100644 (file)
 
 standard_testfile .c fullpath-expand-func.c
 
-if [is_remote host] {
-    unsupported "compiling on a remote host does not support a filename with directory."
-    return 0
-}
+# Compiling on a remote host does not support a filename with
+# directory.
+require {!is_remote host}
 
 if { [file pathtype $objdir] != "absolute" } {
     untested "objdir $objdir is not absolute"
index d3e4a052c6b9260da1817583a41b327ca88ed10c..59fd2d0c143f189bb2a677ea011d78f2a00474d6 100644 (file)
 
 # We cannot expect remote hosts to see environment variables set on the
 # local machine.
-
-if { [is_remote host] } {
-    unsupported "can't set environment variables on remote host"
-    return -1
-}
+require {!is_remote host}
 
 # Check that the history size is properly set to SIZE when the environment
 # variable ENV_VAR is set to GDBHISTSIZE.
index 46d76b0e2390a38c0cbbf25a2c95656bcfe07eba..4c73293627c2550a785f398afd45d04c10256b99 100644 (file)
 # Test the setting of "history size" via $HOME/.gdbinit
 
 # This test depends on being able to set $HOME and $GDBHISTSIZE.
-# We cannot expect remote hosts to see environment variables set on the
-# local machine.
 
 # Do not run if gdb debug is enabled - it interferes with the command history.
 require !gdb_debug_enabled
 
-if { [is_remote host] } {
-    unsupported "can't set environment variables on remote host"
-    return -1
-}
+# We cannot expect remote hosts to see environment variables set on the
+# local machine.
+require {!is_remote host}
 
 # Check that the history size is properly set to SIZE when reading the .gdbinit
 # file located in HOME with the environment variable GDBHISTSIZE optionally
index 683c732e6710fb26bee95449297a41e7c0e648dd..c14d87b8cc7447a94973e052360264386baf1a5c 100644 (file)
@@ -13,9 +13,7 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 require allow_shlib_tests
-if { [is_remote target] } {
-    return 0
-}
+require {!is_remote target}
 
 # Library file.
 set libname "info-fun-solib"
index 9a983992ea0470d40382a359f228652d9ceda649..7862c9600fe5d878982f8ed61dcc2f70a1d36ed0 100644 (file)
 
 # We cannot expect remote hosts to see environment variables set on
 # the local machine.
-if { [is_remote host] } {
-    unsupported "can't set environment variables on remote host"
-    return -1
-}
+require {!is_remote host}
 
 # Spawn GDB with LIB preloaded with LD_PRELOAD.  CMDLINE_OPTS are
 # command line options passed to GDB.
index d46e93bb5c1c64d1d12471f794673fa212697026..2d6eaeb6c65ff65174d96fbae064231e9475ee4e 100644 (file)
@@ -23,9 +23,7 @@ standard_testfile
 # If the host is remote, source files are uploaded to the host and compiled
 # there, but without the directory structure we expect, making the test
 # pointless.  Skip the test in that case.
-if { [is_remote host] } {
-    return
-}
+require {!is_remote host}
 
 # Copy the source file at these locations in the output directory ($out):
 #
index 6945a9231947c7ef1a433d88ee44b55f16f06200..12837b95255a25772e7c999734cf9ba85aef7932 100644 (file)
@@ -20,9 +20,7 @@
 
 
 require isnative allow_shlib_tests is_c_compiler_gcc
-if { [is_remote host] } {
-    return
-}
+require {!is_remote host}
 
 load_lib prelink-support.exp
 
index ade6fe22c52ca558b5984d955de7de9e9420f128..74dc725a4d0f4b5dfd70de4676874fce2286bf4b 100644 (file)
 
 standard_testfile .c realname-expand-real.c
 
-if [is_remote host] {
-    unsupported "compiling on a remote host does not support a filename with directory."
-    return 0
-}
+# Compiling on a remote host does not support a filename with
+# directory.
+require {!is_remote host}
 
 set srcdirabs [file join [pwd] $srcdir]
 set srcfilelink [standard_output_file realname-expand-link.c]
index e04bec9c5042a93faaa3a8d64ef744458111ae13..3cdb455bb595823a81e2c1d489ea4b5162fce5c6 100644 (file)
@@ -21,9 +21,8 @@
 
 # This only works on GNU/Linux.
 require isnative allow_shlib_tests
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 set test "skip-solib"
 set srcfile_main "${test}-main.c"
index 644c8ece11fe135130d64b2c05a45a2f8a611d25..e778711a9d612da5cf30e8d8fc7b38b80b2503ac 100644 (file)
 
 require allow_shlib_tests
 
-if {[is_remote target]} {
-    # gdbserver prints the warning message but expect is parsing only the GDB
-    # output, not the gdbserver output.
-    return 0
-}
+# gdbserver prints the warning message but expect is parsing only the GDB
+# output, not the gdbserver output.
+require {!is_remote target}
 
 set testfile "solib-corrupted"
 set srcfile start.c
index dd0724909ada4b088f5064c734bab9da89e8630d..1530d80d694daf7df5a1ca97020acb6b7f2d096a 100644 (file)
@@ -16,9 +16,7 @@
 require allow_shlib_tests
 
 # The testcase assumes the target can access the OBJDIR.
-if [is_remote target] {
-    return
-}
+require {!is_remote target}
 
 # We need to be able to influence the target's environment and working
 # directory.  Can't do that if when we connect the inferior is already
index 5e9e3d43ee0c291fae27261a42e8a758af7e620e..1d678efc2d5499a86738fa6e561b84d1f9749194 100644 (file)
 # is properly reset when the path is changed.
 
 require allow_shlib_tests
-if {[is_remote target]} {
-    untested "skipping remote target and shared library tests"
-    return -1
-}
+require {!is_remote target}
 
 # Build "wrong" and "right" versions of the libraries in separate directories.
 set wrong_lib_subdir "solib-search-wrong"
index b1f868b520a6490481a6a2eb013edc402bf2b0c9..51b1e4fa922e817b7ee94408bd64ed8f666358f6 100644 (file)
@@ -20,10 +20,7 @@ require !use_gdb_stub
 
 # There's no easy way to set environment variables on remote targets
 # (via dejagnu) yet.
-if { [is_remote target] } {
-    untested "remote board"
-    return
-}
+require {!is_remote target}
 
 standard_testfile
 
index dcf13575a17304de5e749c98a14b4eaf5bbb9fb0..a156c39146f211b16af04e72bc66a31bf4fd9d2c 100644 (file)
 # Do not run if gdb debug is enabled as it will interfere with log redirect.
 require !gdb_debug_enabled
 
-if {[is_remote host]} {
-    untested "does not work on remote host"
-    return 0
-}
+require {!is_remote host}
 
 standard_testfile style.c
 
index da0261eabe60f37ca7bd3fd6615e4f444e2ebd65..6849a344ee3e1f033472471b4374b8d472a03db4 100644 (file)
@@ -18,10 +18,7 @@ require allow_xml_test
 
 load_lib valgrind.exp
 
-if [is_remote target] {
-    # The test always runs locally.
-    return 0
-}
+require {!is_remote target}
 
 standard_testfile .c
 if {[build_executable $testfile.exp $testfile $srcfile {debug}] == -1} {
index 3fb4341d2c71b4962cb87c54183278c4bf6308f2..1033ac8c6a792f8e3e0e75f5d040e433e736cac0 100644 (file)
@@ -23,10 +23,7 @@ require allow_xml_test
 
 load_lib valgrind.exp
 
-if [is_remote target] {
-    # The test always runs locally.
-    return 0
-}
+require {!is_remote target}
 
 standard_testfile .c
 if {[build_executable "failed to build" $testfile $srcfile {debug}] == -1} {
index 6ed6ecd1d4206d983b128df8f08146d4bae23cd5..aa8f472cdb5a470da553dc34bb7d0c758555d74b 100644 (file)
@@ -34,10 +34,7 @@ require allow_xml_test
 
 load_lib valgrind.exp
 
-if [is_remote target] {
-    # The test always runs locally.
-    return 0
-}
+require {!is_remote target}
 
 standard_testfile .c
 if {[build_executable $testfile.exp $testfile $srcfile {debug}] == -1} {
index bcaca02c9006e4bcc1adedc702b07a53ad8be486..01267734409d1674fa0481691444c7518231c457 100644 (file)
@@ -18,10 +18,7 @@ require allow_xml_test
 
 load_lib valgrind.exp
 
-if [is_remote target] {
-    # The test always runs locally.
-    return 0
-}
+require {!is_remote target}
 
 standard_testfile .c
 if {[build_executable $testfile.exp $testfile $srcfile {debug}] == -1} {
index 50e680b920dc7d29b752c78d17c11eeb1f050e01..e58bde537f1f2afe628896426874be7823d99e1d 100644 (file)
 
 # Test that an early warning does not cause a crash.
 
-if {[is_remote host]} {
-    unsupported "warning.exp can only run on local host"
-    return
-}
+require {!is_remote host}
 
 set tname [standard_temp_file warning]
 set fd [open $tname w]
index 2f37d4d7955775878810fb3c8c0fa5af78c8b321..a6beba443c41ca18dbd527ba9b83b92145a85031 100644 (file)
@@ -19,10 +19,8 @@ require dwarf2_support
 
 # This test has hard-wired assumptions that host and build filenames are
 # the same, and assumes POSIX pathname syntax.
-if { [is_remote host] || [ishost *-*-mingw*] } {
-    unsupported "can only run on local host"
-    return 0
-}
+require {!is_remote host}
+require {!ishost *-*-mingw*}
 
 # Find length of addresses in bytes.
 if {[is_64_target]} {
index 48fc619f869fcea4ef06d420e148bbcd22e933fb..1b9ba8da09266c5fbded7f7fa27ed515af207cbe 100644 (file)
@@ -19,9 +19,7 @@ load_lib dwarf.exp
 require dwarf2_support
 
 # No remote host testing either.
-if {[is_remote host]} {
-    return 0
-}
+require {!is_remote host}
 
 
 # Lots of source files since we test a few cases and make new files
index a03bff29068454c390a9250f7afb8ddaa2dd3c91..d0bfa6b57f72d88750b96a9e75a40c6bffd20e51 100644 (file)
@@ -19,9 +19,7 @@ load_lib dwarf.exp
 require dwarf2_support
 
 # No remote host testing either.
-if {[is_remote host]} {
-    return 0
-}
+require {!is_remote host}
 
 standard_testfile main.c dwznolink.S
 
index c3338c2951d15da7d60cd79e11a89b61f30c321f..b654de40fcb428a1de52dcab10fba5f2bd749f58 100644 (file)
@@ -16,9 +16,7 @@
 load_lib dwarf.exp
 
 # We run objcopy locally to split out the .dwo file.
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 # This test can only be run on targets which support DWARF-2 and use gas.
 require dwarf2_support
index c13450da03dcd98e937e01380f9281b8aca16afe..a6fb3e875a8d0bbf3670f9dfb84e671781398fa0 100644 (file)
@@ -21,9 +21,7 @@
 load_lib dwarf.exp
 
 # We run objcopy locally to split out the .dwo file.
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 # This test can only be run on targets which support DWARF-2 and use gas.
 require dwarf2_support
index 31c7bcafbaf180e9ecd1e4da0fd3608f0c038ac0..d906eeb69cc497797dba12d88503e4e6b004d22c 100644 (file)
@@ -16,9 +16,7 @@
 load_lib dwarf.exp
 
 # We run objcopy locally to split out the .dwo file.
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 # This test can only be run on targets which support DWARF-2 and use gas.
 require dwarf2_support
index 7bdf6271f5a798c58d8a36544ef47bae85976474..0a2a079e82b15a1950e329d4b7c330de9cf96f67 100644 (file)
@@ -19,9 +19,7 @@
 load_lib dwarf.exp
 
 # We run objcopy locally to split out the .dwo file.
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 # This test can only be run on targets which support DWARF-2 and use gas.
 require dwarf2_support
index 0ef2b134ea0e6d629d25d6e138388f1b5cdee9be..01e9eada575b0d1c6e9ffdb631b2f3e916c99dec 100644 (file)
@@ -16,9 +16,7 @@
 load_lib dwarf.exp
 
 # We run objcopy locally to split out the .dwo file.
-if [is_remote host] {
-    return 0
-}
+require {!is_remote host}
 
 # This test can only be run on targets which support DWARF-2 and use gas.
 require dwarf2_support
index 871a1867308c730fb36334cfb100c2f10714f170..538004ec95a6ba66a53ac56b0721b680adc4cf4e 100644 (file)
@@ -21,9 +21,7 @@ load_lib dwarf.exp
 require dwarf2_support
 
 # No remote host testing either.
-if {[is_remote host]} {
-    return 0
-}
+require {!is_remote host}
 
 standard_testfile main.c no-gnu-debuglink.S
 
index 41159431ddc7e0f903fc2516d89b757844df44c8..4e79ecfc8b4ee40f654bcd18ff3aa093efeca278 100644 (file)
@@ -18,10 +18,9 @@ standard_testfile
 # Fission doesn't support macros yet.  Bug 15954.
 require !using_fission
 
-if [is_remote host] {
-    unsupported "compiling on a remote host does not support a filename with directory."
-    return 0
-}
+# Compiling on a remote host does not support a filename with
+# directory.
+require {!is_remote host}
 
 set opts {debug additional_flags=-I. macros}
 
index 5e5b8030d201f62655fc1cb54836702545fc04f2..dc5a1a68955d251f5253cfef2594e047b20447fe 100644 (file)
 # This file is part of the GDB testsuite.  It tests Python-based
 # pretty-printing for the CLI.
 
-if [is_remote host] {
-    untested "py-pp-maint.exp can only be run locally"
-    return -1
-}
+require {!is_remote host}
 
 load_lib gdb-python.exp
 
index 46657c65e8f61bf09e6d917470880f4df1085832..f58d96257c2f4d07ace89cf541b743c90810a682 100644 (file)
@@ -27,9 +27,7 @@ require allow_gdbserver_tests
 # Because we're relying on being able to change our CWD before
 # executing gdbserver, we just run if we're not testing with a remote
 # target.
-if { [is_remote target] } {
-    return 0
-}
+require {!is_remote target}
 
 save_vars { GDBFLAGS } {
     # If GDB and GDBserver are both running locally, set the sysroot to avoid
index 6c4c969c30d395edeb8067ff2ef6ffb0220eedf2..1f5b9a27cf4996a74f3bd93981282553d0defa2f 100644 (file)
@@ -25,9 +25,7 @@ standard_testfile normal.c
 require allow_gdbserver_tests
 
 # We want to have control over where we start gdbserver.
-if { [is_remote target] } {
-    return 0
-}
+require {!is_remote target}
 
 if { [prepare_for_testing "failed to prepare" $testfile $srcfile debug] } {
     return -1
index 48b79fe723cdfc4571a6fd1a8121124529c2619d..e4ad0ce78544af7594c102adf031128aa1ba0861 100644 (file)
@@ -24,9 +24,7 @@
 # This test relies on starting gdbserver using the pipe syntax.  Not
 # sure how well this will run if part of this test is being run
 # elsewhere.
-if { [is_remote target] || [is_remote host] } {
-    return 0
-}
+require {!is_remote target} {!is_remote host}
 
 load_lib gdbserver-support.exp
 
index 4a5caaa2e85cd910232320168bb0a4b11305f10b..e5cc1f9b9bbe956892b22874cba4a668cf80d2ec 100644 (file)
@@ -18,9 +18,8 @@
 
 # This test only works on Linux
 require !use_gdb_stub isnative
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 standard_testfile
 set executable_nothr ${testfile}-nothr
index 7512a672890608e0b9ce72d03b979241cfc78bc5..85db583b0de30ed9a5e8ff7ff7176623bb3408a7 100644 (file)
@@ -38,9 +38,8 @@
 
 # This test only works on Linux
 require !use_gdb_stub isnative
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 standard_testfile
 
index 35b31afafafc07f89be5d42de92abe31ac4b9a5a..25d63b3709038053bf87041ae916edcf82402bd8 100644 (file)
@@ -19,9 +19,8 @@
 
 # This test only works on Linux
 require !use_gdb_stub isnative
-if { [is_remote host] || ![istarget *-linux*] } {
-    return
-}
+require {!is_remote host}
+require {istarget *-linux*}
 
 standard_testfile
 set escapedbinfile  [string_to_regexp $binfile]