gdb_test "set qqq_aaa" \
"Warning: 'set qqq_aaa', an alias for the command 'set xxx_yyy', is deprecated\\.\r\n.*No alternative known\\..*" \
"deprecated alias with prefix give a warning"
-
- file delete $file1
}
# Test that the help for a command does not show deprecated aliases.
# Test that GDB is able to source a file with an indented comment.
proc_with_prefix source_file_with_indented_comment {} {
- set file1 [standard_output_file file1]
+ set file1 [standard_output_file source_file_with_indented_comment]
set fd [open "$file1" w]
puts $fd \
# Test that GDB can handle arguments when sourcing files recursively.
# If the arguments are overwritten with ####### then the test has failed.
proc_with_prefix recursive_source_test {} {
- set file1 [standard_output_file file1]
- set file2 [standard_output_file file2]
- set file3 [standard_output_file file3]
+ set file1 [standard_output_file recursive_source_1]
+ set file2 [standard_output_file recursive_source_2]
+ set file3 [standard_output_file recursive_source_3]
set fd [open "$file1" w]
puts $fd \
gdb_test "source $file1" \
"1: <<<qwerty>>>\[\r\n]+in file3\[\r\n]+2: <<<qwerty>>>" \
"source file"
-
- file delete $file1
- file delete $file2
- file delete $file3
}
proc gdb_test_no_prompt { command result msg } {