* 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 f1f06799e9d4222eebdc1aff41a2a6f485377341..3a77ffd041e46210d98e3079ead94a6e558d8025 100644 (file)
--- 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 2a171fefe61611fc9682d7461686a30fb417f5be..f300d72b890882bac59e885cbd0d4529912ea17b 100644 (file)
--- 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 $"        {}