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

* gdb.base/sigbpt.exp: Disable if gdb,nosignals. 

* gdb.base/signull.exp: Disable if gdb,nosignals.
	* gdb.cp/bs15503.exp: Disable if skip_cplus_tests
	* gdb.cp/exception.exp: Disable if skip_cplus_tests.
	* gdb.mi/mi-console.exp: Disable hello test if gdb,noinferiorio.
	* gdb.mi/mi2-console.exp: Likewise.
	* gdb.trace/collection.exp (run_trace_experiment): Consume the
	continue output at start.
	(gdb_collect_locals_test): Robustify regexp.
	* gdb.trace/passc-dyn.exp: Fix comment typo.
	* gdb.trace/tfind.exp: Don't enable optimization. Remove stray ']'.
This commit is contained in:
Nathan Sidwell 2005-03-08 10:12:21 +00:00
parent 549678dac2
commit 5f579bc5f9
10 changed files with 80 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,17 @@
2005-03-08 Nathan Sidwell <nathan@codesourcery.com>
* gdb.base/sigbpt.exp: Disable if gdb,nosignals.
* gdb.base/signull.exp: Disable if gdb,nosignals.
* gdb.cp/bs15503.exp: Disable if skip_cplus_tests
* gdb.cp/exception.exp: Disable if skip_cplus_tests.
* gdb.mi/mi-console.exp: Disable hello test if gdb,noinferiorio.
* gdb.mi/mi2-console.exp: Likewise.
* gdb.trace/collection.exp (run_trace_experiment): Consume the
continue output at start.
(gdb_collect_locals_test): Robustify regexp.
* gdb.trace/passc-dyn.exp: Fix comment typo.
* gdb.trace/tfind.exp: Don't enable optimization. Remove stray ']'.
2005-03-08 Corinna Vinschen <vinschen@redhat.com>
* gdb.asm/asm-source.exp: Add iq2000 case.

5
gdb/testsuite/gdb.base/sigbpt.exp
View File

@ -29,6 +29,11 @@
# instruction. Since the kernel problems can be "fixed" using
# software single-step this is KFAILed rather than XFAILed.
if [target_info exists gdb,nosignals] {
verbose "Skipping signals.exp because of nosignals."
continue
}
if $tracelevel {
strace $tracelevel
}

5
gdb/testsuite/gdb.base/signull.exp
View File

@ -28,6 +28,11 @@
# This also tests backtrace/gdb1476.
if [target_info exists gdb,nosignals] {
verbose "Skipping signals.exp because of nosignals."
continue
}
if $tracelevel {
strace $tracelevel
}

2
gdb/testsuite/gdb.cp/bs15503.exp
View File

@ -22,6 +22,8 @@ if $tracelevel {
strace $tracelevel
}
if { [skip_cplus_tests] } { continue }
set testfile "bs15503"
set srcfile ${testfile}.cc
set binfile ${objdir}/${subdir}/${testfile}

2
gdb/testsuite/gdb.cp/exception.exp
View File

@ -42,6 +42,8 @@ if $tracelevel then {
strace $tracelevel
}
if { [skip_cplus_tests] } { continue }
set testfile "exception"
set srcfile ${testfile}.cc
set binfile ${objdir}/${subdir}/${testfile}

32
gdb/testsuite/gdb.mi/mi-console.exp
View File

@ -64,23 +64,25 @@ gdb_expect {
}
}
gdb_expect {
-re "@\"H\"\r\n.*@\"e\"\r\n.*@\"l\"\r\n.*@\"l\"\r\n.*@\"o\"\r\n.*@\" \"\r\n.*@\"\\\\\\\\\"\r\n.*@\"\\\\\"\"\r\n.*@\"!\"\r\n.*@\"\\\\r\"\r\n.*@\"\\\\n\"\r\n" {
pass "Hello message"
}
-re "Hello" {
if { ![target_info exists gdb,noinferiorio]} {
gdb_expect {
-re "@\"H\"\r\n.*@\"e\"\r\n.*@\"l\"\r\n.*@\"l\"\r\n.*@\"o\"\r\n.*@\" \"\r\n.*@\"\\\\\\\\\"\r\n.*@\"\\\\\"\"\r\n.*@\"!\"\r\n.*@\"\\\\r\"\r\n.*@\"\\\\n\"\r\n" {
pass "Hello message"
}
-re "Hello" {
# Probably a native system where GDB doesn't have direct
# control over the inferior console.
# For this to work, GDB would need to run the inferior process
# under a PTY and then use the even-loops ability to wait on
# multiple event sources to channel the output back through the
# MI.
# Probably a native system where GDB doesn't have direct #
# control over the inferior console. # For this to work,
# GDB would need to run the inferior process # under a PTY
# and then use the even-loops ability to wait on #
# multiple event sources to channel the output back
# through the # MI.
kfail "gdb/623" "Hello message"
}
timeout {
fail "Hello message (timeout)"
kfail "gdb/623" "Hello message"
}
timeout {
fail "Hello message (timeout)"
}
}
}

36
gdb/testsuite/gdb.mi/mi2-console.exp
View File

@ -64,26 +64,28 @@ gdb_expect {
}
}
gdb_expect {
-re "@\"H\"\r\n.*@\"e\"\r\n.*@\"l\"\r\n.*@\"l\"\r\n.*@\"o\"\r\n.*@\" \"\r\n.*@\"\\\\\\\\\"\r\n.*@\"\\\\\"\"\r\n.*@\"!\"\r\n.*@\"\\\\r\"\r\n.*@\"\\\\n\"\r\n" {
pass "Hello message"
}
-re "Hello" {
if { ![target_info exists gdb,noinferiorio] } {
gdb_expect {
-re "@\"H\"\r\n.*@\"e\"\r\n.*@\"l\"\r\n.*@\"l\"\r\n.*@\"o\"\r\n.*@\" \"\r\n.*@\"\\\\\\\\\"\r\n.*@\"\\\\\"\"\r\n.*@\"!\"\r\n.*@\"\\\\r\"\r\n.*@\"\\\\n\"\r\n" {
pass "Hello message"
}
-re "Hello" {
# Probably a native system where GDB doesn't have direct #
# control over the inferior console. # For this to work,
# GDB would need to run the inferior process # under a PTY
# and then use the even-loops ability to wait on #
# multiple event sources to channel the output back
# through the # MI.
# Probably a native system where GDB doesn't have direct
# control over the inferior console.
# For this to work, GDB would need to run the inferior process
# under a PTY and then use the even-loops ability to wait on
# multiple event sources to channel the output back through the
# MI.
kfail "gdb/623" "Hello message"
}
timeout {
fail "Hello message (timeout)"
kfail "gdb/623" "Hello message"
}
timeout {
fail "Hello message (timeout)"
}
}
}
gdb_expect {
-re "47\\*stopped.*$mi_gdb_prompt$" {
pass "Finished step over hello"

15
gdb/testsuite/gdb.trace/collection.exp
View File

@ -79,7 +79,18 @@ proc test_register { reg test_id } {
}
proc run_trace_experiment { msg test_func } {
gdb_run_cmd
global gdb_prompt
gdb_run_cmd
gdb_expect {
-re ".*Breakpoint \[0-9\]+, begin .*$gdb_prompt $" {
}
-re ".*$gdb_prompt $" {
fail "collect $msg: advance to go"
}
timeout {
fail "collect $msg: advance to go (timeout)"
}
}
gdb_test "tstart" \
"\[\r\n\]+" \
"collect $msg: start trace experiment"
@ -280,7 +291,7 @@ proc gdb_collect_locals_test { func mylocs msg } {
run_trace_experiment $msg $func
gdb_test "print locc" \
"\\$\[0-9\]+ = 11 '.013'$cr" \
"\\$\[0-9\]+ = 11 '.\[a-z0-7\]+'$cr" \
"collect $msg: collected local char"
gdb_test "print loci" \
"\\$\[0-9\]+ = 12$cr" \

2
gdb/testsuite/gdb.trace/passc-dyn.exp
View File

@ -66,7 +66,7 @@ gdb_reinitialize_dir $srcdir/$subdir
# We generously give ourselves one "pass" if we successfully
# detect that this test cannot be run on this target!
if { ![gdb_target_supports_trace] } then {
pass "Current target does not supporst trace"
pass "Current target does not support trace"
return 1;
}

8
gdb/testsuite/gdb.trace/tfind.exp
View File

@ -54,12 +54,8 @@ if [istarget "m68k-*-elf"] then {
set srcfile ${testfile}.c
set binfile $objdir/$subdir/$testfile
# Why does this test require '-O1' level optimization? (In
# general, the optimization level should be left under the control
# of the test framework (target_list and so on), so if we don't
# have to override it in individual tests like this, we shouldn't.)
if { [gdb_compile "$srcdir/$subdir/$srcfile" "$binfile" \
executable {debug additional_flags=-w optimize=-O1}] != "" } {
executable {debug additional_flags=-w}] != "" } {
gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
}
gdb_load $binfile
@ -303,7 +299,7 @@ gdb_tfind_test "8.13: tracepoint <no arg>" "tracepoint" \
"\$tracepoint" "$tdp1";
gdb_test "printf \"x \%d x\\n\", \$trace_frame == \$save_frame" \
"x 0 x" \
"8.13: tracepoint <no arg>, tracepoint number unchanged"]
"8.13: tracepoint <no arg>, tracepoint number unchanged"
# 1.12 set tracepoint in prologue
#