From: Doug Evans <xdje42@gmail.com>
Date: Sat, 22 Mar 2014 06:57:08 +0000 (-0400)
Subject: 	* gdb.guile/guile.exp (guile not supported): Verify multi-line
X-Git-Tag: gdb-7.8-release~751
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=51b8d20cf46627f9e97b90ada6467e69eb6d4439;p=external%2Fbinutils.git

	* gdb.guile/guile.exp (guile not supported): Verify multi-line
	guile command issues an error.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f1f0679..3a77ffd 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -2,6 +2,8 @@
 
 	* gdb.python/python.exp (python not supported): Verify multi-line
 	python command issues an error.
+	* gdb.python/guile.exp (guile not supported): Verify multi-line
+	guile command issues an error.
 
 2014-03-21  Maciej W. Rozycki  <macro@codesourcery.com>
 
diff --git a/gdb/testsuite/gdb.guile/guile.exp b/gdb/testsuite/gdb.guile/guile.exp
index 2a171fe..f300d72 100644
--- a/gdb/testsuite/gdb.guile/guile.exp
+++ b/gdb/testsuite/gdb.guile/guile.exp
@@ -38,6 +38,13 @@ gdb_test_multiple "guile (display 23) (newline)" "verify guile support" {
       gdb_test "source $srcdir/$subdir/source2.scm" \
 	  "Error in sourced command file:.*" \
 	  "source source2.scm when guile disabled"
+
+      # Verify multi-line guile commands cause an error.
+      gdb_test_multiline "multi-line guile command" \
+	  "guile" "" \
+	  "(print 23)" "" \
+	  "end" "not supported.*"
+
       return
     }
     -re "$gdb_prompt $"	{}