diff options
author | Andrew Burgess <andrew.burgess@embecosm.com> | 2021-05-13 16:50:28 +0100 |
---|---|---|
committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2021-05-13 17:48:49 +0100 |
commit | 5c6f801d8e6740d9c1dfa7ff4a9ed2ec160a5e1d (patch) | |
tree | d7212f1b407ab925d3abc640f8734950d714fd71 /gdb/testsuite/lib/gdb-guile.exp | |
parent | 0b2256f772883cf5ea9fecb0d720ca8ea8629198 (diff) | |
download | gdb-5c6f801d8e6740d9c1dfa7ff4a9ed2ec160a5e1d.zip gdb-5c6f801d8e6740d9c1dfa7ff4a9ed2ec160a5e1d.tar.gz gdb-5c6f801d8e6740d9c1dfa7ff4a9ed2ec160a5e1d.tar.bz2 |
gdb/testsuite: remove some duplicate test names from guile tests
The guile support library has some "tests" that are actually being
used to setup GDB ready for the real guile tests, e.g. we load some
support modules, and define some helper functions.
As this setup is done every time we call gdb_guile_runto_main, which
could be called multiple times in a single test script, this can lead
to duplicate PASS lines.
As this setup is all pretty basic, and isn't the actual focus of the
real tests, then in this commit I pass an empty test name through to
the gdb_test_no_output calls, the result of this is that the PASS
lines are no longer printed. This removes some duplicate tests from
the gdb.guile/*.exp set of tests.
gdb/testsuite/ChangeLog:
* lib/guile.exp (gdb_scm_load_file): Use empty test name to
silence PASS lines.
(gdb_install_guile_module): Likewise.
Diffstat (limited to 'gdb/testsuite/lib/gdb-guile.exp')
-rw-r--r-- | gdb/testsuite/lib/gdb-guile.exp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gdb/testsuite/lib/gdb-guile.exp b/gdb/testsuite/lib/gdb-guile.exp index f6e627e..c118ffe 100644 --- a/gdb/testsuite/lib/gdb-guile.exp +++ b/gdb/testsuite/lib/gdb-guile.exp @@ -81,14 +81,23 @@ proc gdb_scm_load_file { file_name {test_name ""} } { proc gdb_install_guile_utils { } { # Define utilities in Guile to save needing (newline) all the time, # and in the case of "print" add a prefix to help erroneous passes. - gdb_test_no_output "guile (define (print x) (format #t \"= ~A\" x) (newline))" - gdb_test_no_output "guile (define (raw-print x) (format #t \"= ~S\" x) (newline))" + # + # Pass the empty string as the test name here, this means we don't + # get a pass/fail message for these tests, but also removes + # duplicate tests if this proc ends up getting called multiple + # times in a single test script. + gdb_test_no_output "guile (define (print x) (format #t \"= ~A\" x) (newline))" "" + gdb_test_no_output "guile (define (raw-print x) (format #t \"= ~S\" x) (newline))" "" } # Install the gdb module. proc gdb_install_guile_module { } { - gdb_test_no_output "guile (use-modules (gdb))" + # Pass the empty string as the test name here, this means we don't + # get a pass/fail message for these tests, but also removes + # duplicate tests if this proc ends up getting called multiple + # times in a single test script. + gdb_test_no_output "guile (use-modules (gdb))" "" } # Wrapper around runto_main that installs the guile utils and module. |