diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-09-15 13:42:54 -0400 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-10-03 17:48:02 +0100 |
| commit | 58eb20d527dbb0ebf26c21ecb32263def26d4593 (patch) | |
| tree | 3926cc79439d4d563f16f120d4217c10184cb3e2 /gdb/testsuite/gdb.linespec | |
| parent | 4d4211478f4f3bb61ea3e22937fee234fb31f7cb (diff) | |
| download | fsf-binutils-gdb-58eb20d527dbb0ebf26c21ecb32263def26d4593.zip fsf-binutils-gdb-58eb20d527dbb0ebf26c21ecb32263def26d4593.tar.gz fsf-binutils-gdb-58eb20d527dbb0ebf26c21ecb32263def26d4593.tar.bz2 | |
gdb/testsuite: Make test names unique in gdb.linespec tests
Make test names unique in the gdb.linespec tests. On my local machine
this removed 43 duplicate test names. It is possible that different
setups might still encounter some duplicates.
gdb/testsuite/ChangeLog:
* gdb.linespec/explicit.exp: Make test names unique.
* gdb.linespec/ls-errs.exp: Likewise.
Diffstat (limited to 'gdb/testsuite/gdb.linespec')
| -rw-r--r-- | gdb/testsuite/gdb.linespec/explicit.exp | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.linespec/ls-errs.exp | 5 |
2 files changed, 7 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.linespec/explicit.exp b/gdb/testsuite/gdb.linespec/explicit.exp index e50e503..03f898c 100644 --- a/gdb/testsuite/gdb.linespec/explicit.exp +++ b/gdb/testsuite/gdb.linespec/explicit.exp @@ -104,8 +104,10 @@ namespace eval $testfile { # Test abbreviations set short [string range $arg 0 3] - gdb_test "break -$short" \ - [string_to_regexp "missing argument for \"-$short\""] + if { $arg != $short } { + gdb_test "break -$short" \ + [string_to_regexp "missing argument for \"-$short\""] + } } # Test invalid arguments diff --git a/gdb/testsuite/gdb.linespec/ls-errs.exp b/gdb/testsuite/gdb.linespec/ls-errs.exp index f031c46..0743d89 100644 --- a/gdb/testsuite/gdb.linespec/ls-errs.exp +++ b/gdb/testsuite/gdb.linespec/ls-errs.exp @@ -92,7 +92,8 @@ proc do_test {lang} { gdb_test "break $linespec" [string_to_regexp \ [eval format \$error_messages($msg_id) \ - $args]] + $args]] \ + "'break $linespec'" } # Some commonly used whitespace tests around ':'. @@ -234,7 +235,7 @@ proc do_test {lang} { test_break "main:here${x}" unexpected "end of input" } - foreach x {"3" "+100" "-100" "foo"} { + foreach_with_prefix x {"3" "+100" "-100" "foo"} { test_break "main 3" invalid_function "main 3" test_break "-function \"main $x\"" invalid_function "main $x" if {$x == "foo"} { |