espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-26 13:56:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

[gdb/testsuite] Fix DUPLICATEs in gdb.base/multi-forks.exp

Browse Source 
When running test-case gdb.base/multi-forks.exp I get:
...
DUPLICATE: gdb.base/multi-forks.exp: run to exit 2
DUPLICATE: gdb.base/multi-forks.exp: run to exit 2
...

Fix these by using test_with_prefix.

Tested on x86_64-linux.
This commit is contained in:
Tom de Vries
2020-10-27 23:17:09 +01:00
parent 5868da034f
commit 297e9a75f2
1 changed files with 24 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
gdb/testsuite/gdb.base/multi-forks.exp
View File

@ -104,26 +104,32 @@ proc continue_to_exit_bp_loc {} {
# zero means to take the child's branch; a pid means to take the
# parent's branch.
# First set gdb to follow the child.
# The result should be that each of the 4 forks returns zero.
foreach mode { "child" "parent" } {
clean_restart ${binfile}
runto_main
clean_restart ${binfile}
runto_main
gdb_test_no_output "set follow-fork child"
continue_to_exit_bp_loc
gdb_test_no_output "set follow-fork $mode"
with_test_prefix "follow $mode" {
continue_to_exit_bp_loc
gdb_test "print pids" "\\$.* = \\{0, 0, 0, 0\\}.*" "follow child, print pids"
# Now set gdb to follow the parent.
# Result should be that none of the 4 forks returns zero.
clean_restart ${binfile}
runto_main
gdb_test_no_output "set follow-fork parent" ""
continue_to_exit_bp_loc
gdb_test "print pids\[0\]==0 || pids\[1\]==0 || pids\[2\]==0 || pids\[3\]==0" \
" = 0" "follow parent, print pids"
set test "print pids"
if { $mode eq "child" } {
# Gdb is set to follow the child.
# The result should be that each of the 4 forks returns zero.
gdb_test "print pids" "\\$.* = \\{0, 0, 0, 0\\}.*" $test
} else {
# Gdb is set to follow the parent.
# Result should be that none of the 4 forks returns zero.
set val \
[join [list \
"pids\[0\]==0" \
"pids\[1\]==0" \
"pids\[2\]==0" \
"pids\[3\]==0"] " || "]
gdb_test "print $val" " = 0" $test
}
}
}
#
# Now test with detach-on-fork off.