From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 1 Jan 2010 11:11:34 +0000 (+0000)
Subject: Test indented comment in file being sourced.
X-Git-Tag: sid-snapshot-20100101~4
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=02e7ef193509c3e359cb7b006d918d65eac5d2ee;p=platform%2Fupstream%2Fbinutils.git

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
--- 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
--- 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