yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gdb/testsuite/

Browse Source 
Fix racy clashing of output files for gdb.base{1,2}/ parallel run.
	* gdb.base/annota1.exp (thread_test): Import global $testfile.
	Change the compilation target to match the testcase name.
	* gdb.base/sect-cmd.exp: Change the compilation target to match the
	testcase name.
	* a2-run.exp: Use for setup prepare_for_testing.  Change the
	compilation target to match the testcase name.
	* gdb.base/commands.exp: Likewise.
	* gdb.base/finish.exp: Likewise.
	* gdb.base/float.exp: Likewise.
	* gdb.base/info-target.exp: Likewise.
	* gdb.base/relational.exp: Likewise.
	* gdb.base/term.exp: Likewise.
	* gdb.base/until.exp: Likewise.
	* gdb.base/volatile.exp: Likewise.
	* gdb.base/whatis-exp.exp: Likewise.
This commit is contained in:
Jan Kratochvil 2009-07-13 19:20:39 +00:00
parent 37bbf52bcd
commit aa81e255f3
13 changed files with 51 additions and 139 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,22 @@
2009-07-13 Jan Kratochvil <jan.kratochvil@redhat.com>
Fix racy clashing of output files for gdb.base{1,2}/ parallel run.
* gdb.base/annota1.exp (thread_test): Import global $testfile.
Change the compilation target to match the testcase name.
* gdb.base/sect-cmd.exp: Change the compilation target to match the
testcase name.
* a2-run.exp: Use for setup prepare_for_testing. Change the
compilation target to match the testcase name.
* gdb.base/commands.exp: Likewise.
* gdb.base/finish.exp: Likewise.
* gdb.base/float.exp: Likewise.
* gdb.base/info-target.exp: Likewise.
* gdb.base/relational.exp: Likewise.
* gdb.base/term.exp: Likewise.
* gdb.base/until.exp: Likewise.
* gdb.base/volatile.exp: Likewise.
* gdb.base/whatis-exp.exp: Likewise.
2009-07-11 Hui Zhu <teawater@gmail.com>
* gdb.base/help.exp (disassemble): Update expected help text.

12
gdb/testsuite/gdb.base/a2-run.exp
View File

@ -31,19 +31,11 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
set testfile "run"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested a2-run.exp
set testfile a2-run
if { [prepare_for_testing ${testfile}.exp $testfile run.c] } {
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
# Run with no arguments.
# On VxWorks this justs make sure the program was run.
gdb_run_cmd

7
gdb/testsuite/gdb.base/annota1.exp
View File

@ -491,11 +491,10 @@ if [ regexp "core not found" $exec_output] {
}
proc thread_test {} {
global objdir subdir srcdir
global objdir subdir srcdir testfile
global gdb_prompt old_gdb_prompt
set testfile "watch_thread_num"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
set srcfile watch_thread_num.c
set binfile ${objdir}/${subdir}/${testfile}-watch_thread_num
set gdb_prompt $old_gdb_prompt
if { ![get_compiler_info ${binfile}] && [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] == "" } {

14
gdb/testsuite/gdb.base/commands.exp
View File

@ -25,20 +25,10 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
set testfile "run"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/commands
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
untested commands.exp
return -1
if { [prepare_for_testing commands.exp commands run.c {debug additional_flags=-DFAKEARGV}] } {
return -1
}
gdb_exit
gdb_start
delete_breakpoints
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
proc gdbvar_simple_if_test {} {
global gdb_prompt

15
gdb/testsuite/gdb.base/finish.exp
View File

@ -23,12 +23,8 @@ set prms_id 0
set bug_id 0
# re-use the program from the "return2" test.
set testfile "return2"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested finish.exp
return -1
if { [prepare_for_testing finish.exp finish return2.c] } {
return -1
}
proc finish_1 { type } {
@ -128,12 +124,5 @@ proc finish_tests { } {
finish_abbreviation "fin"
}
# Start with a fresh gdb.
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set timeout 30
finish_tests

11
gdb/testsuite/gdb.base/float.exp
View File

@ -29,19 +29,10 @@ if $tracelevel {
set prms_id 0
set bug_id 0
set testfile "run"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested float.exp
if { [prepare_for_testing float.exp float run.c] } {
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
# Set it up at a breakpoint so we have its registers.
if ![runto_main] then {

11
gdb/testsuite/gdb.base/info-target.exp
View File

@ -20,18 +20,11 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
set testfile start
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
set testfile info-target
if { [prepare_for_testing ${testfile}.exp $testfile start.c] } {
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set eol "\[\r\n\]+"
# Check the output of "info target". Note that we are not interested

20
gdb/testsuite/gdb.base/relational.exp
View File

@ -31,23 +31,13 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
set testfile "int-type"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
untested relational.exp
return -1
}
if [get_compiler_info ${binfile}] {
return -1;
if { [prepare_for_testing relational.exp relational int-type.c {debug nowarnings}] } {
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
if [get_compiler_info not-used] {
return -1;
}
#
# set it up at a breakpoint so we can play with the variable values

6
gdb/testsuite/gdb.base/sect-cmd.exp
View File

@ -35,9 +35,9 @@ if ![istarget "hppa*-*-hpux*"] then {
return
}
set testfile "break"
set srcfile ${testfile}.c
set srcfile1 ${testfile}1.c
set testfile "sect-cmd"
set srcfile break.c
set srcfile1 break1.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {

14
gdb/testsuite/gdb.base/term.exp
View File

@ -38,20 +38,10 @@ gdb_start
set prms_id 0
set bug_id 0
set testfile "run"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested term.exp
return -1
if { [prepare_for_testing term.exp term run.c] } {
return -1
}
gdb_exit
gdb_start
delete_breakpoints
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
gdb_test "set print sevenbit-strings" "" "test set print sevenbit-strings"
gdb_test "set print address off" "" "test set print address off"
gdb_test "set width 0" "" "test set width 0"

26
gdb/testsuite/gdb.base/until.exp
View File

@ -19,31 +19,11 @@ if $tracelevel then {
strace $tracelevel
}
set testfile "break"
set srcfile ${testfile}.c
set srcfile1 ${testfile}1.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
untested until.exp
return -1
set srcfile break.c
if { [prepare_for_testing until.exp "until" {break.c break1.c} {debug nowarnings}] } {
return -1
}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
untested until.exp
return -1
}
if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
untested until.exp
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location19 [gdb_get_line_number "set breakpoint 19 here"]
set bp_location20 [gdb_get_line_number "set breakpoint 20 here"]

18
gdb/testsuite/gdb.base/volatile.exp
View File

@ -42,26 +42,16 @@ set bug_id 0
# Use the same test program constvars.c.
set testfile "constvars"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [prepare_for_testing volatile.exp volatile constvars.c] } {
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
if [get_compiler_info ${binfile}] {
if [get_compiler_info not-used] {
return -1;
}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable debug ] != "" } {
untested volatile.exp
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
#
# set it up at a breakpoint so we can play with the variable values
#

17
gdb/testsuite/gdb.base/whatis-exp.exp
View File

@ -35,20 +35,9 @@ if $tracelevel then {
set prms_id 0
set bug_id 0
set testfile "int-type"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
untested whatis-exp.exp
return -1
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
if { [prepare_for_testing whatis-exp.exp whatis-exp int-type.c {debug nowarnings}] } {
return -1
}
#
# set it up at a breakpoint so we can play with the variable values