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

        send_gdb fails.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a06f49d2be757e3125d2f2e95eb21068e8665c60..8760331196ab39dd658ec8b053091c767d8461b6 100644 (file)
--- 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 2e33b7023f8ca5065742c4e0deb339c5b21e920c..4e0920f7227796f5ab529e72478dd4a28274e99c 100644 (file)
--- 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;
        }
     }