diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2010-01-01 11:11:34 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2010-01-01 11:11:34 +0000 |
| commit | 02e7ef193509c3e359cb7b006d918d65eac5d2ee (patch) | |
| tree | 88aa7daa3f3dbbabdb240546131642589e6aaf19 /gdb/testsuite | |
| parent | 50cb294110f3ad8acb6b1013828a38442f3282ae (diff) | |
| download | gdb-02e7ef193509c3e359cb7b006d918d65eac5d2ee.zip gdb-02e7ef193509c3e359cb7b006d918d65eac5d2ee.tar.gz gdb-02e7ef193509c3e359cb7b006d918d65eac5d2ee.tar.bz2 | |
Test indented comment in file being sourced.
* gdb.base/commands.exp: Test indented comment in file being sourced.
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 |