From 5f579bc5f9ba6cc5a444fa49f25fbfa5274bd37b Mon Sep 17 00:00:00 2001 From: Nathan Sidwell Date: Tue, 8 Mar 2005 10:12:21 +0000 Subject: [PATCH] * 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 ']'. --- gdb/testsuite/ChangeLog | 14 ++++++++++ gdb/testsuite/gdb.base/sigbpt.exp | 5 ++++ gdb/testsuite/gdb.base/signull.exp | 5 ++++ gdb/testsuite/gdb.cp/bs15503.exp | 2 ++ gdb/testsuite/gdb.cp/exception.exp | 2 ++ gdb/testsuite/gdb.mi/mi-console.exp | 32 ++++++++++++----------- gdb/testsuite/gdb.mi/mi2-console.exp | 36 ++++++++++++++------------ gdb/testsuite/gdb.trace/collection.exp | 15 +++++++++-- gdb/testsuite/gdb.trace/passc-dyn.exp | 2 +- gdb/testsuite/gdb.trace/tfind.exp | 8 ++---- 10 files changed, 80 insertions(+), 41 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c9f4ecbac91..ace5929e975 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,17 @@ +2005-03-08 Nathan Sidwell + + * 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 * gdb.asm/asm-source.exp: Add iq2000 case. diff --git a/gdb/testsuite/gdb.base/sigbpt.exp b/gdb/testsuite/gdb.base/sigbpt.exp index 61625b52373..45630ab51c9 100644 --- a/gdb/testsuite/gdb.base/sigbpt.exp +++ b/gdb/testsuite/gdb.base/sigbpt.exp @@ -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 } diff --git a/gdb/testsuite/gdb.base/signull.exp b/gdb/testsuite/gdb.base/signull.exp index 59b1a5647e6..5d4f0f1abc8 100644 --- a/gdb/testsuite/gdb.base/signull.exp +++ b/gdb/testsuite/gdb.base/signull.exp @@ -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 } diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp index 9b6095bec1a..fe60639c955 100644 --- a/gdb/testsuite/gdb.cp/bs15503.exp +++ b/gdb/testsuite/gdb.cp/bs15503.exp @@ -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} diff --git a/gdb/testsuite/gdb.cp/exception.exp b/gdb/testsuite/gdb.cp/exception.exp index 31930913a23..7c7cd0c4731 100644 --- a/gdb/testsuite/gdb.cp/exception.exp +++ b/gdb/testsuite/gdb.cp/exception.exp @@ -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} diff --git a/gdb/testsuite/gdb.mi/mi-console.exp b/gdb/testsuite/gdb.mi/mi-console.exp index 9986b5eb425..07a4f7c2389 100644 --- a/gdb/testsuite/gdb.mi/mi-console.exp +++ b/gdb/testsuite/gdb.mi/mi-console.exp @@ -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)" + } } } diff --git a/gdb/testsuite/gdb.mi/mi2-console.exp b/gdb/testsuite/gdb.mi/mi2-console.exp index dba80c9f606..9d75d1815f5 100644 --- a/gdb/testsuite/gdb.mi/mi2-console.exp +++ b/gdb/testsuite/gdb.mi/mi2-console.exp @@ -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" { - - # 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" diff --git a/gdb/testsuite/gdb.trace/collection.exp b/gdb/testsuite/gdb.trace/collection.exp index a6ac5d80248..61fddd8bd52 100644 --- a/gdb/testsuite/gdb.trace/collection.exp +++ b/gdb/testsuite/gdb.trace/collection.exp @@ -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" \ diff --git a/gdb/testsuite/gdb.trace/passc-dyn.exp b/gdb/testsuite/gdb.trace/passc-dyn.exp index d0c27ea4386..fc096c85605 100644 --- a/gdb/testsuite/gdb.trace/passc-dyn.exp +++ b/gdb/testsuite/gdb.trace/passc-dyn.exp @@ -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; } diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp index 95073518218..e11bb7f994e 100644 --- a/gdb/testsuite/gdb.trace/tfind.exp +++ b/gdb/testsuite/gdb.trace/tfind.exp @@ -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 " "tracepoint" \ "\$tracepoint" "$tdp1"; gdb_test "printf \"x \%d x\\n\", \$trace_frame == \$save_frame" \ "x 0 x" \ - "8.13: tracepoint , tracepoint number unchanged"] + "8.13: tracepoint , tracepoint number unchanged" # 1.12 set tracepoint in prologue # -- 2.30.2