gdb/testsuite/

	* lib/gdb.exp (gdb_test_multiple): Error on trailing newlines.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 01c11d5549b4bef036f276e9bab0a92c3c151026..cb8545315b0bd85ee75f39af3ba766dbe6bc51ec 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-28  Jan Kratochvil  <[email protected]>
+           Joel Brobecker  <[email protected]>
+
+       * lib/gdb.exp (gdb_test_multiple): Error on trailing newlines.
+
 2010-06-28  Jan Kratochvil  <[email protected]>
 
        * 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 c2014dd8ed686af9d8effb695366ac5c219c90f0..d702dee810342c9c445ddab338534491729f19fa 100644 (file)
--- 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.