Test indented comment in file being sourced.

* gdb.base/commands.exp: Test indented comment in file being sourced.
This commit is contained in:
Joel Brobecker 2010-01-01 11:11:34 +00:00
parent 50cb294110
commit 02e7ef1935
2 changed files with 19 additions and 0 deletions

View File

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

View File

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