diff options
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/commands.exp | 14 |
2 files changed, 19 insertions, 0 deletions
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 |