* 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 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.
# 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
}
# This also tests backtrace/gdb1476.
+if [target_info exists gdb,nosignals] {
+ verbose "Skipping signals.exp because of nosignals."
+ continue
+}
+
if $tracelevel {
strace $tracelevel
}
strace $tracelevel
}
+if { [skip_cplus_tests] } { continue }
+
set testfile "bs15503"
set srcfile ${testfile}.cc
set binfile ${objdir}/${subdir}/${testfile}
strace $tracelevel
}
+if { [skip_cplus_tests] } { continue }
+
set testfile "exception"
set srcfile ${testfile}.cc
set binfile ${objdir}/${subdir}/${testfile}
}
}
-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 "@\"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.
+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.
- 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"
}
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"
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" \
# 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;
}
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
"\$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
#
OSDN Git Service
