From 3c0af8a010aa4cd7b907729cf7f5e6ce9a517041 Mon Sep 17 00:00:00 2001
From: Bob Manson <manson@cygnus>
Date: Mon, 24 Feb 1997 21:24:26 +0000
Subject:         * lib/gdb.exp(gdb_test): Generate a FAIL message when        
 send_gdb fails.

---
 gdb/testsuite/lib/gdb.exp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gdb/testsuite/lib')

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 2e33b70..4e0920f 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;
 	}
     }
-- 
cgit v1.1