This is the mail archive of the gdb-patches@sourceware.org mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[commit] UNSUPPORTED for gdb.ada/catch_ex.exp


As Joel and I discussed on gdb@.  The Debian shared libgnat does not
have the information we need to run these tests - but a separate debug
package for that is in the works.

Tested on x86_64-pc-linux-gnu and committed.

-- 
Daniel Jacobowitz
CodeSourcery

2007-01-09  Daniel Jacobowitz  <dan@codesourcery.com>

	* gdb.ada/catch_ex.exp: Call unsupported and stop if the runtime
	has no debug information.

Index: gdb.ada/catch_ex.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/catch_ex.exp,v
retrieving revision 1.1
diff -u -p -r1.1 catch_ex.exp
--- gdb.ada/catch_ex.exp	4 Jan 2007 05:39:01 -0000	1.1
+++ gdb.ada/catch_ex.exp	10 Jan 2007 03:45:18 -0000
@@ -56,9 +56,19 @@ if ![runto_main] then {
    return 0
 }
 
-gdb_test "catch exception" \
-         "Catchpoint $any_nb: all Ada exceptions" \
-         "insert catchpoint on all Ada exceptions"
+set msg "insert catchpoint on all Ada exceptions"
+gdb_test_multiple "catch exception" $msg {
+    -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" {
+	pass $msg
+    }
+    -re "Cannot break on __gnat_raise_nodefer_with_msg in this configuration\.$eol$gdb_prompt $" {
+	# If the runtime was not built with enough debug information,
+	# or if it was stripped, we can not test exception
+	# catchpoints.
+	unsupported $msg
+	return -1
+    }
+}
 
 gdb_test "info break" \
          "$info_break_header$eol.*$catch_exception_info" \


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]