diff options
| author | Tom de Vries <tdevries@suse.de> | 2020-02-13 15:34:06 +0100 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2020-02-13 15:34:06 +0100 |
| commit | 92b6eaf759d40406c788a1b576494a530f532928 (patch) | |
| tree | 32ca328f47dc18b9662a6796e0971df14073961a /gdb | |
| parent | 99845b3b77ed1248b6fb94707f88868bde358ccc (diff) | |
| download | gdb-92b6eaf759d40406c788a1b576494a530f532928.zip gdb-92b6eaf759d40406c788a1b576494a530f532928.tar.gz gdb-92b6eaf759d40406c788a1b576494a530f532928.tar.bz2 | |
[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.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/catch_ex_std.exp | 12 |
2 files changed, 17 insertions, 0 deletions
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 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*] |