diff options
| author | Manoj Iyer <manjo@austin.ibm.com> | 2004-09-01 19:55:00 +0000 |
|---|---|---|
| committer | Manoj Iyer <manjo@austin.ibm.com> | 2004-09-01 19:55:00 +0000 |
| commit | 3bdcad15ba585931bd2b6a415c0b82ff36d3e4cc (patch) | |
| tree | 94c34729d1b7b2ed0e777aed506467621f70f80f /gdb/testsuite | |
| parent | 4fbbbd0782656c03df124a2398b01afbc6d6fa44 (diff) | |
| download | gdb-3bdcad15ba585931bd2b6a415c0b82ff36d3e4cc.zip gdb-3bdcad15ba585931bd2b6a415c0b82ff36d3e4cc.tar.gz gdb-3bdcad15ba585931bd2b6a415c0b82ff36d3e4cc.tar.bz2 | |
Use new gdb.exp feature to check for nodebug in the executable for testcases under gdb.gdb
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.gdb/complaints.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.gdb/observer.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.gdb/selftest.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.gdb/xfullpath.exp | 5 |
5 files changed, 28 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f9dcfa4..da6959f 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2004-09-01 Manoj Iyer <manjo@austin.ibm.com> + + * 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 <cagney@gnu.org> * 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 719065f..c29053c 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 a012387..652997b 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 02ad806..fb559aa 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 bc3dc45..a506a6b 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 |