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> 2020-05-17 Pedro Alves <palves@redhat.com>
PR gdb/25741 PR gdb/25741

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

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