[gdb/testsuite] Fix duplicate in gdb.base/argv0-symlink.exp

I found the following duplicates in gdb.base/argv0-symlink.exp:
...
DUPLICATE: gdb.base/argv0-symlink.exp: set print repeats 10000
DUPLICATE: gdb.base/argv0-symlink.exp: set print elements 10000
...

Fix these by using with_test_prefix "file symlink" / "dir symlink".

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2021-06-24  Tom de Vries  <tdevries@suse.de>

	* gdb.base/argv0-symlink.exp: Use with_test_prefix.
This commit is contained in:
Tom de Vries
2021-06-24 12:08:54 +02:00
parent 1daf786ba3
commit 657dcee4cf
2 changed files with 78 additions and 65 deletions

View File

@ -1,3 +1,7 @@
2021-06-24 Tom de Vries <tdevries@suse.de>
* gdb.base/argv0-symlink.exp: Use with_test_prefix.
2021-06-23 Tom de Vries <tdevries@suse.de>
* lib/gdb.exp (gdb_test_lines): Rewrite to accept single

View File

@ -38,11 +38,14 @@ if { [build_executable ${testfile}.exp ${testfile} ${srcfile}] == -1 } {
return -1
}
set test "kept file symbolic link name"
with_test_prefix "file symlink" {
set test "kept name"
set filelink "${testfile}-filelink"
remote_file host delete [standard_output_file $filelink]
set status [remote_exec host "ln -sf ${testfile} [standard_output_file $filelink]"]
set status [remote_exec host \
"ln -sf ${testfile} [standard_output_file $filelink]"]
if {[lindex $status 0] != 0} {
unsupported "$test (host does not support symbolic links)"
return 0
@ -70,10 +73,13 @@ if { $has_argv0 } {
set full_filelink [standard_output_file $filelink]
set lastdir [file tail [file dirname $full_filelink]]
gdb_test "info inferiors" "/$lastdir/$filelink *" "$test for info inferiors"
gdb_test "info inferiors" "/$lastdir/$filelink *" \
"$test for info inferiors"
}
with_test_prefix "dir symlink" {
set test "kept directory symbolic link name"
set test "kept name"
set dirlink "${testfile}-dirlink"
# 'ln -sf' does not overwrite symbol link to a directory.
@ -99,7 +105,8 @@ gdb_test_no_output "set print elements 10000"
if { $has_argv0 } {
# gdbserver in extended-remote mode does not have this issue.
# Plain remote does, however.
if {[target_info gdb_protocol] != "extended-remote" || ![target_is_gdbserver]} {
if { [target_info gdb_protocol] != "extended-remote"
|| ![target_is_gdbserver] } {
setup_kfail "*-*-*" gdb/15934
}
gdb_test {print argv[0]} "/$dirlink/$filelink\"" $test
@ -107,4 +114,6 @@ if { $has_argv0 } {
unsupported $test
}
gdb_test "info inferiors" "/$lastdir/$filelink *" "$test for info inferiors"
gdb_test "info inferiors" "/$lastdir/$filelink *" \
"$test for info inferiors"
}