OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[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.
This commit is contained in:
Tom de Vries 2020-02-13 15:34:06 +01:00
parent 99845b3b77
commit 92b6eaf759
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

12
gdb/testsuite/gdb.ada/catch_ex_std.exp
View File

@ -59,6 +59,12 @@ set gnatbind [find_ada_tool gnatbind]
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 @@ with_cwd $outdir {
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*]