diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-06-28 20:09:59 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-06-28 20:09:59 +0000 |
| commit | 824cc8dd7cdd81143790e8f78d989d32161d5121 (patch) | |
| tree | 6d3e57f91770421c4f52386b9435bc45e5cc0d7d | |
| parent | 9279c692c1e31c527d29493a9d96ea19507ee01b (diff) | |
| download | gdb-824cc8dd7cdd81143790e8f78d989d32161d5121.zip gdb-824cc8dd7cdd81143790e8f78d989d32161d5121.tar.gz gdb-824cc8dd7cdd81143790e8f78d989d32161d5121.tar.bz2 | |
gdb/testsuite/
* lib/gdb.exp (gdb_test_multiple): Error on trailing newlines.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 01c11d5..cb85453 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,4 +1,9 @@ 2010-06-28 Jan Kratochvil <jan.kratochvil@redhat.com> + Joel Brobecker <brobecker@adacore.com> + + * lib/gdb.exp (gdb_test_multiple): Error on trailing newlines. + +2010-06-28 Jan Kratochvil <jan.kratochvil@redhat.com> * gdb.cp/static-print-quit.exp, gdb.cp/static-print-quit.cc: New. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index c2014dd..d702dee 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -580,6 +580,10 @@ proc gdb_test_multiple { command message user_code } { set message $command } + if [string match "*\[\r\n\]" $command] { + error "Invalid trailing newline in \"$message\" test" + } + # TCL/EXPECT WART ALERT # Expect does something very strange when it receives a single braced # argument. It splits it along word separators and performs substitutions. |