From 3bdcad15ba585931bd2b6a415c0b82ff36d3e4cc Mon Sep 17 00:00:00 2001 From: Manoj Iyer Date: Wed, 1 Sep 2004 19:55:00 +0000 Subject: [PATCH] Use new gdb.exp feature to check for nodebug in the executable for testcases under gdb.gdb --- gdb/testsuite/ChangeLog | 8 ++++++++ gdb/testsuite/gdb.gdb/complaints.exp | 5 +++++ gdb/testsuite/gdb.gdb/observer.exp | 5 +++++ gdb/testsuite/gdb.gdb/selftest.exp | 5 +++++ gdb/testsuite/gdb.gdb/xfullpath.exp | 5 +++++ 5 files changed, 28 insertions(+) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f9dcfa4dac9..da6959f4727 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2004-09-01 Manoj Iyer + + * gdb.gdb/complaints.exp (setup_test): use new gdb.exp functionality + to check for nodebug in executable. + * gdb.gdb/observer.exp (setup_test): Likewise. + * gdb.gdb/selftest.exp (test_with_self): Likewise. + * gdb.gdb/xfullpath.exp (setup_test): Likewise. + 2004-09-01 Andrew Cagney * gdb.threads/staticthreads.c, gdb.threads/staticthreads.exp: New diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp index 719065f60d3..c29053c6197 100644 --- a/gdb/testsuite/gdb.gdb/complaints.exp +++ b/gdb/testsuite/gdb.gdb/complaints.exp @@ -55,6 +55,11 @@ proc setup_test { executable } { if { [lindex $result 0] != "" } then { return -1 + } else { + if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then { + untested "No debug information, skipping testcase." + return -1 + } } # Set a breakpoint at main diff --git a/gdb/testsuite/gdb.gdb/observer.exp b/gdb/testsuite/gdb.gdb/observer.exp index a012387b5f7..652997bf3b7 100644 --- a/gdb/testsuite/gdb.gdb/observer.exp +++ b/gdb/testsuite/gdb.gdb/observer.exp @@ -53,6 +53,11 @@ proc setup_test { executable } { if { [lindex $result 0] != "" } then { return -1 + } else { + if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then { + untested "No debug information, skipping testcase." + return -1 + } } # Set a breakpoint at main diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp index 02ad80635ee..fb559aa2ff2 100644 --- a/gdb/testsuite/gdb.gdb/selftest.exp +++ b/gdb/testsuite/gdb.gdb/selftest.exp @@ -247,6 +247,11 @@ proc test_with_self { executable } { if { [lindex $result 0] != "" } then { return -1 + } else { + if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then { + untested "No debug information, skipping testcase." + return -1 + } } # disassemble yourself diff --git a/gdb/testsuite/gdb.gdb/xfullpath.exp b/gdb/testsuite/gdb.gdb/xfullpath.exp index bc3dc45139e..a506a6b3271 100644 --- a/gdb/testsuite/gdb.gdb/xfullpath.exp +++ b/gdb/testsuite/gdb.gdb/xfullpath.exp @@ -54,6 +54,11 @@ proc setup_test { executable } { if { [lindex $result 0] != "" } then { return -1 + } else { + if { [lsearch -exact [lrange $result 1 end] "nodebug"] >= 0 } then { + untested "No debug information, skipping testcase." + return -1 + } } # Set a breakpoint at main -- 2.30.2