From 02e7ef193509c3e359cb7b006d918d65eac5d2ee Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Fri, 1 Jan 2010 11:11:34 +0000 Subject: [PATCH] Test indented comment in file being sourced. * gdb.base/commands.exp: Test indented comment in file being sourced. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.base/commands.exp | 14 ++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 16d659614dc..08ce031c171 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-01-01 Joel Brobecker + + Test indented comment in file being sourced. + * gdb.base/commands.exp: Test indented comment in file being sourced. + 2010-01-01 Joel Brobecker * gdb.fortran/array-element.f, gdb.fortran/complex.f, diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp index 24c916b6a41..b3257aaf9ed 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 -- 2.30.2