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 16d6596..08ce031 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 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,
        gdb.fortran/derived-type.f90, gdb.fortran/module.f90,
        gdb.fortran/subarray.f, gdb.mi/array.f: Update year in copyright

diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp
index 24c916b..b3257aa 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