Use new gdb.exp feature to check for nodebug in the executable for testcases under...

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f9dcfa4dac9386bae36524bd40ed57a2f338890f..da6959f47271e6ab57d4a836c4f98b8739480cb2 100644 (file)
--- 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 719065f60d3b78bd934b0fdd6e25c6be1c845653..c29053c6197ccb1c8dd257da4be83b0b15ab8026 100644 (file)
--- 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 a012387b5f70a86a7aebcb6df91542c400c6b4d4..652997bf3b77e4804bd2da8a0965e581ddeee9f5 100644 (file)
--- 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 02ad80635eee48cbc7f42769656eafb228722532..fb559aa2ff29ccfcf2f6eddb545053f787a4d1d2 100644 (file)
--- 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 bc3dc45139ea7f1c97581b3aaab160eacb67143f..a506a6b3271ca56b251d756be7896a0c46eb6aa0 100644 (file)
--- 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