This is the mail archive of the
gdb-cvs@sourceware.org
mailing list for the GDB project.
[binutils-gdb] testsuite: diagnose a running GDB in gdb_skip_xml_tests
- From: Markus Metzger <mmetzger at sourceware dot org>
- To: gdb-cvs at sourceware dot org
- Date: 1 Feb 2017 13:41:37 -0000
- Subject: [binutils-gdb] testsuite: diagnose a running GDB in gdb_skip_xml_tests
https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=787f00256b3eabe34b8599fca4df0243df80d5ca
commit 787f00256b3eabe34b8599fca4df0243df80d5ca
Author: Markus Metzger <markus.t.metzger@intel.com>
Date: Tue Jan 31 17:13:46 2017 +0100
testsuite: diagnose a running GDB in gdb_skip_xml_tests
If GDB is running when gdb_skip_xml_tests is called with
--target_board=native-extended-gdbserer.exp, it fails with:
(gdb) FAIL: ....exp: set tdesc filename .../trivial.xml (got interactive prompt)
monitor exit
Diagnose this in gdb_skip_xml_tests to generate a more meaningful error message:
ERROR: tcl error sourcing ....exp.
ERROR: GDB must not be running in gdb_skip_xml_tests.
while executing
[...]
testsuite/
* lib/gdb.exp (gdb_skip_xml_tests): Error if GDB is running.
Diff:
---
gdb/testsuite/ChangeLog | 4 ++++
gdb/testsuite/lib/gdb.exp | 5 +++++
2 files changed, 9 insertions(+)
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 99cb9fe..0972db3 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,9 @@
2017-02-01 Markus Metzger <markus.t.metzger@intel.com>
+ * lib/gdb.exp (gdb_skip_xml_tests): Error if GDB is running.
+
+2017-02-01 Markus Metzger <markus.t.metzger@intel.com>
+
* gdb.btrace/enable.exp: Call gdb_exit before
skip_gdbserver_tests.
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 48bd7ee..188484f 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -5030,9 +5030,14 @@ proc gdb_skip_bogus_test { msg } {
# NOTE: This must be called while gdb is *not* running.
gdb_caching_proc gdb_skip_xml_test {
+ global gdb_spawn_id
global gdb_prompt
global srcdir
+ if { [info exists gdb_spawn_id] } {
+ error "GDB must not be running in gdb_skip_xml_tests."
+ }
+
set xml_file [gdb_remote_download host "${srcdir}/gdb.xml/trivial.xml"]
gdb_start