OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[gdb/testsuite] Use with_test_prefix in gdb.base/gdb-caching-proc.exp

Browse Source 
When running test-case gdb.base/gdb-caching-proc.exp all passes are unique,
but fails might not be.

Fix this by using with_test_prefix.

Tested on x86_64-linux.

gdb/testsuite/ChangeLog:

2020-05-18  Tom de Vries  <tdevries@suse.de>

	* gdb.base/gdb-caching-proc.exp: Use with_test_prefix.
This commit is contained in:
Tom de Vries 2020-05-18 16:33:37 +02:00
parent 3edf7b9f2c
commit 1d72769534
2 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2020-05-18 Tom de Vries <tdevries@suse.de>
* gdb.base/gdb-caching-proc.exp: Use with_test_prefix.
2020-05-17 Pedro Alves <palves@redhat.com>
PR gdb/25741

36
gdb/testsuite/gdb.base/gdb-caching-proc.exp
View File

@ -28,7 +28,9 @@ proc test_proc { name } {
set resultlist [list]
set first [gdb_do_cache_wrap $real_name]
with_test_prefix intial {
set first [gdb_do_cache_wrap $real_name]
}
lappend resultlist $first
# Ten repetitions was enough to trigger target_supports_scheduler_locking,
@ -37,7 +39,9 @@ proc test_proc { name } {
set racy 0
for {set i 0} {$i < $repeat} {incr i} {
set rerun [gdb_do_cache_wrap $real_name]
with_test_prefix $i {
set rerun [gdb_do_cache_wrap $real_name]
}
lappend resultlist $rerun
if { $rerun != $first } {
set racy 1
@ -45,9 +49,9 @@ proc test_proc { name } {
}
if { $racy == 0 } {
pass "$name consistency"
pass "consistency"
} else {
fail "$name consistency"
fail "consistency"
verbose -log "$name: $resultlist"
}
}
@ -77,20 +81,22 @@ proc test_file { file } {
}
foreach procname $procnames {
switch $procname {
"is_address_zero_readable" { set setup_gdb 1 }
"target_is_gdbserver" { set setup_gdb 1 }
default {set setup_gdb 0 }
}
with_test_prefix $procname {
switch $procname {
"is_address_zero_readable" { set setup_gdb 1 }
"target_is_gdbserver" { set setup_gdb 1 }
default {set setup_gdb 0 }
}
if { $setup_gdb } {
clean_restart $obj
}
if { $setup_gdb } {
clean_restart $obj
}
test_proc $procname
test_proc $procname
if { $setup_gdb } {
gdb_exit
if { $setup_gdb } {
gdb_exit
}
}
}
}