diff options
| author | Bob Manson <manson@cygnus> | 1997-02-24 21:24:26 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-02-24 21:24:26 +0000 |
| commit | 3c0af8a010aa4cd7b907729cf7f5e6ce9a517041 (patch) | |
| tree | 80a0baab42b2ccb6e3443916554b9e15aeb3004e | |
| parent | ec72a26633bdda8d7522bf756fcce9c621d8ac45 (diff) | |
| download | gdb-3c0af8a010aa4cd7b907729cf7f5e6ce9a517041.zip gdb-3c0af8a010aa4cd7b907729cf7f5e6ce9a517041.tar.gz gdb-3c0af8a010aa4cd7b907729cf7f5e6ce9a517041.tar.bz2 | |
* lib/gdb.exp(gdb_test): Generate a FAIL message when
send_gdb fails.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a06f49d..8760331 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 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; } } |