mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
4a94e36819
This commit brings all the changes made by running gdb/copyright.py as per GDB's Start of New Year Procedure. For the avoidance of doubt, all changes in this commits were performed by the script.
503 lines
16 KiB
Plaintext
503 lines
16 KiB
Plaintext
# Copyright 1992-2022 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# This file was written by Michael Snyder (msnyder@cygnus.com)
|
|
|
|
# Test gdb set and show commands. The goal here is to verify that parameters
|
|
# are set and shown correctly, not test whether setting the parameter has the
|
|
# desired effect.
|
|
|
|
|
|
standard_testfile .c
|
|
|
|
if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable {debug}] != "" } {
|
|
untested "failed to compile"
|
|
return -1
|
|
}
|
|
|
|
proc_with_prefix test_setshow_annotate {} {
|
|
# Start with a fresh gdb
|
|
clean_restart $::binfile
|
|
|
|
if ![runto_main] then {
|
|
return
|
|
}
|
|
|
|
#test default annotation_level is 0
|
|
gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level is zero"
|
|
|
|
#test set annotate 2
|
|
|
|
# Here we need to fiddle with prompts.
|
|
save_vars { ::gdb_prompt } {
|
|
set old_gdb_prompt $::gdb_prompt
|
|
set ::gdb_prompt "\r\n\032\032pre-prompt\r\n$::gdb_prompt \r\n\032\032prompt\r\n"
|
|
|
|
gdb_test_multiple "set annotate 2" "set annotate 2" {
|
|
-re "\r\n$::gdb_prompt$" {
|
|
pass "set annotate 2"
|
|
}
|
|
}
|
|
|
|
gdb_test_multiple "show annotate" "show annotate 2" {
|
|
-re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$old_gdb_prompt .*\032\032prompt.*$" {
|
|
pass "show annotate 2"
|
|
}
|
|
}
|
|
|
|
#test annotation_level 2
|
|
gdb_test_multiple "info line 1" "annotation_level 2" {
|
|
-re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$old_gdb_prompt .*\032\032prompt.*$" {
|
|
pass "annotation_level 2"
|
|
}
|
|
}
|
|
}
|
|
|
|
#test set annotate 1
|
|
gdb_test "set annotate 1" ".*post-prompt.*"
|
|
gdb_test "show annotate" "Annotation_level is 1..*" "show annotate (1)"
|
|
#test annotation_level 1
|
|
gdb_test "info line 1" "Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*" "annotation_level 1"
|
|
#test set annotate 0
|
|
gdb_test_no_output "set annotate 0" "set annotate 0"
|
|
gdb_test "show annotate" "Annotation_level is 0..*" "show annotate (0)"
|
|
#test annotation_level 0
|
|
gdb_test "info line 1" "Line 1 of .* is at address .* but contains no code.*" "annotation_level 0"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_args {} {
|
|
clean_restart $::binfile
|
|
|
|
if ![runto_main] then {
|
|
return
|
|
}
|
|
|
|
gdb_test "show args" "Argument list to give program being debugged when it is started is \"\"\." \
|
|
"show args empty"
|
|
gdb_test "p \$_gdb_setting_str(\"args\")" " = \"\""
|
|
|
|
gdb_test_no_output "set args ~"
|
|
gdb_test "show args" "Argument list to give program being debugged when it is started is \"~\"..*" \
|
|
"show args ~"
|
|
|
|
#test set args
|
|
gdb_test_no_output "set args foo bar blup baz bubble" "set args"
|
|
|
|
#test show args
|
|
gdb_test "show args" "Argument list to give program being debugged when it is started is \"foo bar blup baz bubble\"..*" \
|
|
"show args multiple words"
|
|
gdb_test "p \$_gdb_setting(\"args\")" " = \"foo bar blup baz bubble\"" \
|
|
"_gdb_setting args"
|
|
|
|
# Don't test if we can't pass args or if we're using a stub.
|
|
if { !$::use_gdb_stub && ![target_info exists noargs] } {
|
|
#test passing args
|
|
gdb_test "cont" "Continuing.*" "continuing"
|
|
delete_breakpoints
|
|
gdb_test "run" "Starting program:.*foo bar blup baz bubble.*" "passing args"
|
|
}
|
|
}
|
|
|
|
proc_with_prefix test_setshow_check {} {
|
|
clean_restart
|
|
|
|
#test set check range on
|
|
# Note: the below might produce a warning, so match anything.
|
|
gdb_test "set check range on" ""
|
|
|
|
gdb_test "p \$_gdb_setting(\"check range\")" " = \"on\"" \
|
|
"_gdb_setting check range on"
|
|
|
|
#test show check range on
|
|
gdb_test "show check range" "Range checking is \"on\"\..*" "show check range (on)"
|
|
|
|
#test set check range off with trailing space
|
|
gdb_test_no_output "set check range off " "set check range off"
|
|
|
|
#test show check range off
|
|
gdb_test "show check range" "Range checking is \"off\"\..*" "show check range (off)"
|
|
gdb_test "p \$_gdb_setting(\"check range\")" " = \"off\"" \
|
|
"_gdb_setting check range off"
|
|
|
|
#test set check range auto
|
|
gdb_test_no_output "set check range auto" "set check range auto"
|
|
|
|
#test show check range auto
|
|
gdb_test "show check range" "Range checking is \"auto; currently .*" "show check range (auto)"
|
|
gdb_test "p \$_gdb_setting(\"check range\")" " = \"auto\"" \
|
|
"_gdb_setting check range auto"
|
|
|
|
# Test set check type on
|
|
gdb_test_no_output "set check type on"
|
|
|
|
# Test show check type on
|
|
gdb_test "show check type" "Strict type checking is on\..*" \
|
|
"show check type (on)"
|
|
gdb_test "p \$_gdb_setting_str(\"check type\")" " = \"on\"" \
|
|
"_gdb_setting_str check type on"
|
|
gdb_test "p \$_gdb_setting(\"check type\")" " = 1" \
|
|
"_gdb_setting check type on 1"
|
|
|
|
# Test set check type off with trailing space
|
|
gdb_test_no_output "set check type off " "set check type off"
|
|
gdb_test "p \$_gdb_setting_str(\"check type\")" " = \"off\"" \
|
|
"_gdb_setting_str check type off"
|
|
gdb_test "p \$_gdb_setting(\"check type\")" " = 0" \
|
|
"_gdb_setting check type off 0"
|
|
|
|
# Test show check type off
|
|
gdb_test "show check type" "Strict type checking is off\..*" \
|
|
"show check type (off)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_breakpoint_pending {} {
|
|
#test set breakpoint pending
|
|
|
|
#test set breakpoint pending on
|
|
gdb_test_no_output "set breakpoint pending on"
|
|
gdb_test "p \$_gdb_setting_str(\"breakpoint pending\")" " = \"on\"" \
|
|
"_gdb_setting_str breakpoint pending on"
|
|
gdb_test "p \$_gdb_setting(\"breakpoint pending\")" " = 1" \
|
|
"_gdb_setting breakpoint pending 1"
|
|
|
|
#test show breakpoint pending on
|
|
gdb_test "show breakpoint pending" " is on\..*" "show breakpoint pending on"
|
|
|
|
#test show breakpoint pending off
|
|
gdb_test_no_output "set breakpoint pending off"
|
|
gdb_test "show breakpoint pending" " is off\..*" "show breakpoint pending off"
|
|
gdb_test "p \$_gdb_setting_str(\"breakpoint pending\")" " = \"off\"" \
|
|
"_gdb_setting_str breakpoint pending off"
|
|
gdb_test "p \$_gdb_setting(\"breakpoint pending\")" " = 0" \
|
|
"_gdb_setting breakpoint pending 0"
|
|
|
|
#test set breakpoint pending auto
|
|
gdb_test_no_output "set breakpoint pending auto"
|
|
|
|
#test show breakpoint pending auto
|
|
gdb_test "show breakpoint pending" " is auto.*" "show breakpoint pending auto"
|
|
gdb_test "p \$_gdb_setting_str(\"breakpoint pending\")" " = \"auto\"" \
|
|
"_gdb_setting_str breakpoint pending auto"
|
|
gdb_test "p \$_gdb_setting(\"breakpoint pending\")" " = -1" \
|
|
"_gdb_setting breakpoint pending -1"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_complaints {} {
|
|
clean_restart
|
|
|
|
#test set complaints 100
|
|
gdb_test_no_output "set complaints 100" "set complaints 100"
|
|
#test show complaints 100
|
|
gdb_test "show complaints" "Max number of complaints about incorrect symbols is 100..*" "show complaints (100)"
|
|
#test set complaints 0
|
|
gdb_test_no_output "set complaints 0" "set complaints 0"
|
|
#test show complaints 0
|
|
gdb_test "show complaints" "Max number of complaints about incorrect symbols is 0..*" "show complaints (0)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_confirm {} {
|
|
clean_restart
|
|
|
|
#test set confirm off
|
|
gdb_test_no_output "set confirm off" "set confirm off"
|
|
#test show confirm off
|
|
gdb_test "show confirm" "Whether to confirm potentially dangerous operations is off..*" "show confirm (off)"
|
|
#test set confirm on
|
|
gdb_test_no_output "set confirm on" "set confirm on"
|
|
#test show confirm on
|
|
gdb_test "show confirm" "Whether to confirm potentially dangerous operations is on..*" "show confirm (on)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_editing {} {
|
|
clean_restart
|
|
|
|
#test set editing off
|
|
gdb_test_no_output "set editing off" "set editing off"
|
|
|
|
#test show editing off
|
|
gdb_test "show editing" "Editing of command lines as they are typed is off..*" "show editing (off)"
|
|
|
|
#test set editing on
|
|
#gdb_test_no_output "set editing on" "set editing on"
|
|
|
|
#test show editing on
|
|
#gdb_test "show editing" "Editing of command lines as they are typed is on..*" "show editing (on)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_environment {} {
|
|
clean_restart
|
|
|
|
#test set environment FOOBARBAZ
|
|
gdb_test_no_output "set environment FOOBARBAZ = grbxgrbxgrbx" \
|
|
"set environment FOOBARBAZ"
|
|
|
|
#test show environment FOOBARBAZ
|
|
gdb_test "show environment FOOBARBAZ" "FOOBARBAZ = grbxgrbxgrbx.*"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_height {} {
|
|
clean_restart
|
|
|
|
#test set height 100
|
|
gdb_test_no_output "set height 100" "set height 100"
|
|
|
|
#test show height 100
|
|
gdb_test "show height" "Number of lines gdb thinks are in a page is 100..*"
|
|
gdb_test "p \$_gdb_setting_str(\"height\")" " = \"100\"" \
|
|
"_gdb_setting_str height 100"
|
|
gdb_test "p \$_gdb_setting(\"height\")" " = 100" \
|
|
"_gdb_setting height 100"
|
|
|
|
# Back to infinite height to avoid pagers. While at it, check that
|
|
# literal "unlimited" works just as well as 0.
|
|
gdb_test_no_output "set height unlimited"
|
|
gdb_test "p \$_gdb_setting_str(\"height\")" " = \"unlimited\"" \
|
|
"_gdb_setting_str height unlimited"
|
|
gdb_test "p \$_gdb_setting(\"height\")" " = 0" \
|
|
"_gdb_setting height unlimited"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_history {} {
|
|
clean_restart
|
|
|
|
#test set history expansion on
|
|
gdb_test_no_output "set history expansion on" "set history expansion on"
|
|
|
|
#test show history expansion on
|
|
gdb_test "show history expansion on" "History expansion on command input is on.*" "show history expansion"
|
|
|
|
#get home directory path
|
|
set HOME ""
|
|
set test "show environment HOME"
|
|
gdb_test_multiple $test $test {
|
|
-re "\nHOME = (\[^\r\n\]*)\[\r\n\]+$::gdb_prompt $" {
|
|
set HOME $expect_out(1,string)
|
|
pass $test
|
|
}
|
|
}
|
|
|
|
#test set history filename ~/foobar.baz
|
|
gdb_test_no_output "set history filename ~/foobar.baz" \
|
|
"set history filename ~/foobar.baz"
|
|
|
|
#test show history filename ~/foobar.baz
|
|
gdb_test "show history filename" \
|
|
"The filename in which to record the command history is \"[string_to_regexp $HOME]/foobar.baz\"..*" \
|
|
"show history filename (~/foobar.baz)"
|
|
gdb_test "p \$_gdb_setting(\"history filename\")" \
|
|
" = \"[string_to_regexp $HOME]/foobar.baz\"..*" \
|
|
"_gdb_setting history filename"
|
|
gdb_test "p \$_gdb_setting_str(\"history filename\")" \
|
|
" = \"[string_to_regexp $HOME]/foobar.baz\"..*" \
|
|
"_gdb_setting_str history filename"
|
|
|
|
#get current working directory
|
|
set PWD ""
|
|
set test "show working directory"
|
|
gdb_test_multiple "pwd" $test {
|
|
-re "\nWorking directory (\[^\r\n\]*)\\.\[\r\n\]+$::gdb_prompt $" {
|
|
set PWD $expect_out(1,string)
|
|
pass $test
|
|
}
|
|
}
|
|
|
|
#test set history filename foobar.baz
|
|
gdb_test_no_output "set history filename foobar.baz" \
|
|
"set history filename foobar.baz"
|
|
|
|
#test show history filename foobar.baz
|
|
gdb_test "show history filename" \
|
|
"The filename in which to record the command history is \"[string_to_regexp $PWD]/foobar.baz\"..*" \
|
|
"show history filename (current_directory/foobar.baz)"
|
|
|
|
#test set history save on
|
|
gdb_test_no_output "set history save on" "set history save on"
|
|
|
|
#test show history save on
|
|
gdb_test "show history save" "Saving of the history record on exit is on..*" "show history save (on)"
|
|
|
|
#history saving should stay disabled
|
|
gdb_test_no_output "set history save off" "set history save off"
|
|
|
|
#test set history size 100
|
|
gdb_test_no_output "set history size 100" "set history size 100"
|
|
|
|
#test show history size 100
|
|
gdb_test "show history size" "The size of the command history is 100..*" "show history size (100)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_language {} {
|
|
clean_restart
|
|
|
|
#test set language asm
|
|
gdb_test_no_output "set language asm"
|
|
|
|
#test show language asm
|
|
gdb_test "show language" "The current source language is \"asm\"..*" "show language (asm)"
|
|
|
|
#test set language rust, with a trailing space
|
|
gdb_test_no_output "set language rust " "set language rust"
|
|
|
|
#test show language rust
|
|
gdb_test "show language" "The current source language is \"rust\"..*" "show language (rust)"
|
|
|
|
#test completion for set language.
|
|
gdb_test "complete set language min" "set language minimal" \
|
|
"complete set language minimal"
|
|
|
|
#test set language auto
|
|
gdb_test_no_output "set language auto" "set language auto"
|
|
|
|
#test show language
|
|
gdb_test "show language" "The current source language is \"auto.*\"..*" "show language (auto)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_listsize {} {
|
|
clean_restart
|
|
|
|
#test set listsize 100
|
|
gdb_test_no_output "set listsize 100" "set listsize 100"
|
|
|
|
#test show listsize 100
|
|
gdb_test "show listsize" "Number of source lines gdb will list by default is 100..*" "show listsize (100)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_prompt {} {
|
|
clean_restart
|
|
|
|
if [board_info target exists gdb_prompt] {
|
|
return
|
|
}
|
|
|
|
#test set prompt (FooBarBaz)
|
|
set newprompt "\\(FooBarBaz\\)"
|
|
|
|
gdb_test_multiple "set prompt (FooBarBaz) " "set prompt FooBarBaz" {
|
|
-re "\[\r\n\]$newprompt $" {
|
|
pass "set prompt FooBarBaz"
|
|
}
|
|
}
|
|
|
|
#test show prompt (FooBarBaz)
|
|
gdb_test_multiple "show prompt" "show prompt FooBarBaz" {
|
|
-re "Gdb's prompt is \"$newprompt \"..* $" {
|
|
pass "show prompt FooBarBaz"
|
|
}
|
|
}
|
|
|
|
#test set prompt (gdb)
|
|
gdb_test_multiple "set prompt (gdb) " "set prompt gdb" {
|
|
-re "\[\r\n\]$::gdb_prompt $" {
|
|
pass "set prompt gdb"
|
|
}
|
|
}
|
|
}
|
|
|
|
proc_with_prefix test_setshow_radix {} {
|
|
clean_restart
|
|
|
|
#test set radix 11
|
|
gdb_test "set radix 11" "Unsupported output radix ``decimal 11''; output radix unchanged..*"
|
|
|
|
#test set radix 16
|
|
gdb_test "set radix 16" "Input and output radices now set to decimal 16, hex 10, octal 20..*"
|
|
|
|
#test show radix 16
|
|
gdb_test "show radix" "Input and output radices set to decimal 16, hex 10, octal 20..*" "show radix (16)"
|
|
|
|
#test set radix 10
|
|
gdb_test "set radix" "Input and output radices now set to decimal 10, hex a, octal 12..*" "set radix 10"
|
|
|
|
#test show radix 10
|
|
gdb_test "show radix" "Input and output radices set to decimal 10, hex a, octal 12..*" "show radix (10)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_width {} {
|
|
clean_restart
|
|
|
|
#test set width 90
|
|
gdb_test_no_output "set width 90" "set width 90"
|
|
|
|
#test show width 90
|
|
gdb_test "show width" "Number of characters gdb thinks are in a line is 90..*" "show width (90)"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_write {} {
|
|
clean_restart
|
|
|
|
#test set write on
|
|
# This is only supported on targets which use exec.o.
|
|
gdb_test_no_output "set write on" "set write on"
|
|
|
|
#test show write on
|
|
# This is only supported on targets which use exec.o.
|
|
gdb_test "show write" "Writing into executable and core files is on..*" "show write (on)"
|
|
}
|
|
|
|
proc_with_prefix test_show_user {} {
|
|
clean_restart
|
|
|
|
#test show user
|
|
gdb_test_no_output "show user" "show user"
|
|
}
|
|
|
|
proc_with_prefix test_setshow_verbose {} {
|
|
clean_restart
|
|
|
|
#test set verbose on
|
|
gdb_test_no_output "set verbose on" "set verbose on"
|
|
|
|
#test show verbose on
|
|
gdb_test "show verbose" "Verbose printing of informational messages is on..*" "show verbose (on)"
|
|
|
|
#test set verbose off
|
|
gdb_test_no_output "set verbose off" "set verbose off"
|
|
|
|
#test show verbose off
|
|
gdb_test "show verbose" "Verbosity is off..*" "show verbose (off)"
|
|
}
|
|
|
|
proc_with_prefix test_argument_preceded_by_space {} {
|
|
clean_restart
|
|
|
|
#test argument must be preceded by space
|
|
foreach x {"history file" "solib-search-path" "data-directory"} {
|
|
foreach y {"/home/" "~/home" "=home"} {
|
|
gdb_test "set $x$y" "Argument must be preceded by space." \
|
|
"$x is not set to $y"
|
|
}
|
|
}
|
|
}
|
|
|
|
test_setshow_annotate
|
|
test_setshow_args
|
|
test_setshow_check
|
|
test_setshow_breakpoint_pending
|
|
test_setshow_complaints
|
|
test_setshow_confirm
|
|
test_setshow_editing
|
|
test_setshow_environment
|
|
test_setshow_height
|
|
test_setshow_history
|
|
test_setshow_language
|
|
test_setshow_listsize
|
|
test_setshow_prompt
|
|
test_setshow_radix
|
|
test_setshow_width
|
|
test_setshow_write
|
|
test_show_user
|
|
test_setshow_verbose
|
|
test_argument_preceded_by_space
|