[gdb/testsuite] Add unsupported tests in catch_ex_std.exp
If I de-install gnatbind, I run into:
...
FAIL: gdb.ada/catch_ex_std.exp: gnatbind foo
...
Fix this by marking the test unsupported instead:
...
UNSUPPORTED: gdb.ada/catch_ex_std.exp: gnatbind foo
...
Likewise for gnatlink.
Tested on x86_64-linux, with and without gnatbind/gnatlink installed.
gdb/testsuite/ChangeLog:
2020-02-13 Tom de Vries <tdevries@suse.de>
* gdb.ada/catch_ex_std.exp: Indicate unsupported if gnatbind/gnatlink
are missing.
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6abc56c..a087cc7 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
2020-02-13 Tom de Vries <tdevries@suse.de>
+ * gdb.ada/catch_ex_std.exp: Indicate unsupported if gnatbind/gnatlink
+ are missing.
+
+2020-02-13 Tom de Vries <tdevries@suse.de>
+
* lib/ada.exp (gnatmake_version_at_least): Wrap exec call in a catch
call.
diff --git a/gdb/testsuite/gdb.ada/catch_ex_std.exp b/gdb/testsuite/gdb.ada/catch_ex_std.exp
index e6943ab..3fae340 100644
--- a/gdb/testsuite/gdb.ada/catch_ex_std.exp
+++ b/gdb/testsuite/gdb.ada/catch_ex_std.exp
@@ -59,6 +59,12 @@
set gnatlink [find_ada_tool gnatlink]
with_cwd $outdir {
+ # Test if gnatbind is supported
+ set status [remote_exec host "$gnatbind --version"]
+ if {[lindex $status 0] == -1} {
+ unsupported "gnatbind foo"
+ return -1
+ }
# Bind.
set status [remote_exec host "$gnatbind -shared foo"]
if {[lindex $status 0] == 0} {
@@ -68,6 +74,12 @@
return -1
}
+ # Test if gnatlink is supported
+ set status [remote_exec host "$gnatlink --version"]
+ if {[lindex $status 0] == -1} {
+ unsupported "gnatlink foo"
+ return -1
+ }
# Finally, link.
if {[istarget "*-*-mingw*"]
|| [istarget *-*-cygwin*]
