Test indented comment in file being sourced.

        * gdb.base/commands.exp: Test indented comment in file being sourced.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 16d659614dc68d595138b9f36a724c3da8a15379..08ce031c17162c8509f9f5dd16019681042eb0c8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-01  Joel Brobecker  <brobecker@adacore.com>
+
+       Test indented comment in file being sourced.
+       * gdb.base/commands.exp: Test indented comment in file being sourced.
+
 2010-01-01  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.fortran/array-element.f, gdb.fortran/complex.f,

diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp
index 24c916b6a41c057a114a4edd0717147767247f5d..b3257aaf9edfc684a44136565adc7ba93c3bc044 100644 (file)
--- a/gdb/testsuite/gdb.base/commands.exp
+++ b/gdb/testsuite/gdb.base/commands.exp
@@ -577,6 +577,19 @@ proc stray_arg0_test { } {
        "stray_arg0_test #4"
 }
 
+# Test that GDB is able to source a file with an indented comment.
+proc source_file_with_indented_comment {} {
+    set fd [open "file1" w]
+    puts $fd \
+{define my_fun
+    #indented comment
+end
+echo Done!\n}
+    close $fd
+
+    gdb_test "source file1" "Done!" "source file with indented comment"
+}
+
 # Test that GDB can handle arguments when sourcing files recursively.
 # If the arguments are overwritten with ####### then the test has failed.
 proc recursive_source_test {} {
@@ -761,6 +774,7 @@ deprecated_command_test
 bp_deleted_in_command_test
 temporary_breakpoint_commands
 stray_arg0_test
+source_file_with_indented_comment
 recursive_source_test
 if_commands_test
 redefine_hook_test