From: Bob Manson <manson@cygnus>
Date: Mon, 24 Feb 1997 21:24:26 +0000 (+0000)
Subject:         * lib/gdb.exp(gdb_test): Generate a FAIL message when
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3c0af8a010aa4cd7b907729cf7f5e6ce9a517041;p=binutils-gdb.git

    * lib/gdb.exp(gdb_test): Generate a FAIL message when
        send_gdb fails.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a06f49d2be7..8760331196a 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Mon Feb 24 13:23:26 1997  Bob Manson  <manson@charmed.cygnus.com>
+
+	* lib/gdb.exp(gdb_test): Generate a FAIL message when
+	send_gdb fails.
+
 Sun Feb 23 19:56:02 1997  Bob Manson  <manson@charmed.cygnus.com>
 
 	* config/vr4300.exp: New file.
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 2e33b7023f8..4e0920f7227 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -350,6 +350,7 @@ proc gdb_test { args } {
     if ![string match $command ""] {
 	if { [send_gdb "$command\n"] != "" } {
 	    perror "Couldn't send $command to GDB.";
+	    fail "$message";
 	    return $result;
 	}
     }