mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
b955c336f9
Match the whole error message expected to be given rather than omitting the part about the "unlimited" keyword. There's no point in omitting the missing part first, and second with an upcoming change the part in parentheses will no longer be a fixed string, so doing a full match will ensure the algorithm correctly builds the message expected here. Also avoid any wildcard matches.
847 lines
35 KiB
Plaintext
847 lines
35 KiB
Plaintext
# Copyright 1988-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/>.
|
|
|
|
# Start with a fresh gdb
|
|
|
|
gdb_exit
|
|
gdb_start
|
|
|
|
set prev_timeout $timeout
|
|
set timeout 60
|
|
|
|
#
|
|
# test default actions of gdb commands
|
|
#
|
|
|
|
gdb_test "add-symbol-file" "add-symbol-file takes a file name and an address"
|
|
|
|
# test append
|
|
gdb_test "append" "List of append subcommands:.*"
|
|
gdb_test "append binary" "List of append binary subcommands:.*"
|
|
gdb_test "append memory" "Missing filename\."
|
|
gdb_test "append value" "Missing filename\."
|
|
gdb_test "append binary memory" "Missing filename\."
|
|
gdb_test "append binary value" "Missing filename\."
|
|
|
|
if !$use_gdb_stub {
|
|
gdb_test_multiple "attach" "attach" {
|
|
-re "Argument required .(process-id|program) to attach.*$gdb_prompt $"\
|
|
{ pass "attach" }
|
|
-re "You can't do that when your target is `None'.*$gdb_prompt $"\
|
|
{ pass "attach" }
|
|
-re "You can't do that without a process to debug.*$gdb_prompt $"\
|
|
{ pass "attach" }
|
|
-re "Don't know how to attach. Try \"help target\"..*$gdb_prompt $"\
|
|
{ pass "attach" }
|
|
-re "Kill it. .y or n." {
|
|
send_gdb "y\n"
|
|
exp_continue
|
|
}
|
|
}
|
|
|
|
gdb_test "break" "No default breakpoint address now."
|
|
foreach i "b br bre brea" {
|
|
gdb_test $i "No default breakpoint address now." "break \"$i\" abbreviation"
|
|
}
|
|
|
|
|
|
gdb_test "backtrace" "No stack."
|
|
|
|
# ba and bac are no longer unique command prefixes. So these tests
|
|
# elict an error from GDB.
|
|
# GDB needs to be fixed to map unique alias here for ba bac.
|
|
#
|
|
foreach i "bt ba bac" {
|
|
gdb_test $i "No stack." "backtrace \"$i\" abbreviation"
|
|
}
|
|
} else {
|
|
warning "Skipping backtrace and break tests because of GDB stub."
|
|
}
|
|
|
|
gdb_test "continue" "The program is not being run."
|
|
gdb_test "c" "The program is not being run." "continue \"c\" abbreviation"
|
|
|
|
#test call
|
|
gdb_test "call" "The history is empty..*"
|
|
|
|
|
|
#test catch
|
|
gdb_test "catch" "List of catch subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help catch\" followed by catch subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
|
|
#test cd
|
|
gdb_test "cd" "Working directory \[^\r\n\]*\(\r\n \\(canonically \[^\r\n\]*\\)\)?\\."
|
|
|
|
#test clear
|
|
gdb_test "clear" "No source file specified..*"
|
|
|
|
#test commands
|
|
gdb_test "commands" "Argument required .one or more breakpoint numbers...*"
|
|
|
|
#test condition
|
|
gdb_test "condition" "Argument required .breakpoint number.*"
|
|
|
|
#test core-file
|
|
gdb_test "core-file" "No core file now."
|
|
#test delete "d" abbreviation
|
|
gdb_test_no_output "d" "delete \"d\" abbreviation"
|
|
#test delete
|
|
gdb_test_no_output "delete" "delete"
|
|
#test define
|
|
gdb_test "define" "Argument required \[(\]name of command to define\[)\]."
|
|
#test delete breakpoints
|
|
gdb_test_no_output "delete breakpoints" "delete breakpoints"
|
|
#test delete display
|
|
# FIXME -- need to dump full output to detailed log
|
|
|
|
gdb_test "delete display" \
|
|
"" \
|
|
"delete display prompt" \
|
|
"Delete all auto-display expressions.*y or n. $" \
|
|
"y"
|
|
|
|
|
|
#test detach
|
|
gdb_test "detach" ".*"
|
|
|
|
#test directory
|
|
# FIXME -- need to dump full output to detailed log
|
|
|
|
gdb_test "directory" \
|
|
"Source directories searched: .cdir\[:;\].cwd.*" \
|
|
"directory prompt" \
|
|
"Reinitialize source path to empty.*y or n. $" \
|
|
"y"
|
|
|
|
#test disable "dis" abbreviation
|
|
gdb_test_no_output "dis" "disable \"dis\" abbreviation"
|
|
#test disable "disa" abbreviation
|
|
gdb_test_no_output "disa" "disable \"disa\" abbreviation"
|
|
#test disable
|
|
gdb_test_no_output "disable" "disable"
|
|
#test disable breakpoints
|
|
gdb_test_no_output "disable breakpoints" "disable breakpoints"
|
|
#test disable display
|
|
gdb_test_no_output "disable display" "disable display"
|
|
#test disassemble
|
|
gdb_test "disassemble" "No frame selected."
|
|
#test display
|
|
gdb_test_no_output "display" "display"
|
|
#test do
|
|
gdb_test "do" "No stack."
|
|
#test document
|
|
gdb_test "document" "Argument required .name of command to define.*"
|
|
#test down
|
|
gdb_test "down" "No stack.*"
|
|
#test down-silently
|
|
gdb_test "down-silently" "No stack."
|
|
# test dump
|
|
gdb_test "dump" "List of dump subcommands:.*"
|
|
gdb_test "dump binary" "List of dump binary subcommands:.*"
|
|
gdb_test "dump ihex" "List of dump ihex subcommands:.*"
|
|
gdb_test "dump memory" "Missing filename\."
|
|
gdb_test "dump srec" "List of dump srec subcommands:.*"
|
|
gdb_test "dump tekhex" "List of dump tekhex subcommands:.*"
|
|
gdb_test "dump value" "Missing filename\."
|
|
gdb_test "dump binary memory" "Missing filename\."
|
|
gdb_test "dump binary value" "Missing filename\."
|
|
gdb_test "dump ihex memory" "Missing filename\."
|
|
gdb_test "dump ihex value" "Missing filename\."
|
|
gdb_test "dump srec memory" "Missing filename\."
|
|
gdb_test "dump srec value" "Missing filename\."
|
|
gdb_test "dump tekhex memory" "Missing filename\."
|
|
gdb_test "dump tekhex value" "Missing filename\."
|
|
#test echo
|
|
gdb_test_no_output "echo" "echo"
|
|
#test enable breakpoints delete
|
|
gdb_test "enable breakpoints delete" "Argument required .one or more breakpoint numbers.*"
|
|
#test enable breakpoints once
|
|
gdb_test "enable breakpoints once" "Argument required .one or more breakpoint numbers.*"
|
|
#test enable breakpoints
|
|
gdb_test_no_output "enable breakpoints" "enable breakpoints"
|
|
#test enable delete
|
|
gdb_test "enable delete" "Argument required .one or more breakpoint numbers.*"
|
|
#test enable display
|
|
gdb_test_no_output "enable display" "enable display"
|
|
#test enable once
|
|
gdb_test "enable once" "Argument required .one or more breakpoint numbers.*"
|
|
#test enable
|
|
gdb_test_no_output "enable" "enable"
|
|
#test exec-file
|
|
send_gdb "exec-file\n"
|
|
gdb_expect {
|
|
-re "No executable file now..*$gdb_prompt $" {
|
|
pass "exec-file"
|
|
}
|
|
-re "exec-file.*A program is being debugged already. Kill it. .y or n.*$" {
|
|
send_gdb "n\n"
|
|
if $verbose>1 then {
|
|
send_user "\tDidn't kill program being debugged\n"
|
|
}
|
|
gdb_expect -re "$gdb_prompt $" { }
|
|
pass "exec-file"
|
|
}
|
|
-re "$gdb_prompt $" { fail "exec-file" }
|
|
timeout { fail "(timeout) exec-file" }
|
|
}
|
|
|
|
#test frame "f" abbreviation
|
|
gdb_test "f" "No stack." "frame \"f\" abbreviation"
|
|
#test frame
|
|
gdb_test "frame" "No stack."
|
|
#test fg
|
|
gdb_test "fg" "The program is not being run."
|
|
|
|
#test file
|
|
send_gdb "file\n"
|
|
gdb_expect {
|
|
-re "No executable file now..*$gdb_prompt $"\
|
|
{ pass "file" }
|
|
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
|
|
send_gdb "n\n"
|
|
if $verbose>1 then {
|
|
send_user "\t\tDidn't kill program being debugged\n"
|
|
}
|
|
gdb_expect -re "$gdb_prompt $" { }
|
|
pass "file"
|
|
}
|
|
-re ".*$gdb_prompt $" { fail "file" }
|
|
timeout { fail "(timeout) file" }
|
|
}
|
|
|
|
#test finish
|
|
gdb_test "finish" "The program is not being run."
|
|
#test forward-search
|
|
# The message here comes from the regexp library, not gdb, and so can
|
|
# vary on different systems.
|
|
gdb_test "forward-search" "No previous regular expression.*|There is no previous regular expression.*"
|
|
#test gcore
|
|
|
|
gdb_test_multiple "gcore" "gcore" {
|
|
-re "You can\'t do that without a process to debug.*$gdb_prompt $" {
|
|
pass "gcore"
|
|
}
|
|
-re "Undefined command: .*$gdb_prompt $" {
|
|
pass "gcore"
|
|
}
|
|
}
|
|
|
|
gdb_test_multiple "generate-core-file" "generate-core-file" {
|
|
-re "You can\'t do that without a process to debug.*$gdb_prompt $" {
|
|
pass "generate-core-file"
|
|
}
|
|
-re "Undefined command: .*$gdb_prompt $" {
|
|
pass "generate-core-file"
|
|
}
|
|
}
|
|
|
|
#test help "h" abbreviation
|
|
gdb_test "h" "List of classes of commands:(\[^\r\n\]*\[\r\n\])+aliases -- User-defined aliases of other commands(\[^\r\n\]*\[\r\n\])+breakpoints -- Making program stop at certain points(\[^\r\n\]*\[\r\n\])+data -- Examining data(\[^\r\n\]*\[\r\n\])+files -- Specifying and examining files(\[^\r\n\]*\[\r\n\])+obscure -- Obscure features(\[^\r\n\]*\[\r\n\])+running -- Running the program(\[^\r\n\]*\[\r\n\])+stack -- Examining the stack(\[^\r\n\]*\[\r\n\])+status -- Status inquiries(\[^\r\n\]*\[\r\n\])+support -- Support facilities(\[^\r\n\]*\[\r\n\])+user-defined -- User-defined commands(\[^\r\n\]*\[\r\n\])+Type \"help\" followed by a class name for a list of commands in that class.(\[^\r\n\]*\[\r\n\])+Type \"help\" followed by command name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous." "help \"h\" abbreviation"
|
|
#test help
|
|
gdb_test "help" "List of classes of commands:(\[^\r\n\]*\[\r\n\])+aliases -- User-defined aliases of other commands(\[^\r\n\]*\[\r\n\])+breakpoints -- Making program stop at certain points(\[^\r\n\]*\[\r\n\])+data -- Examining data(\[^\r\n\]*\[\r\n\])+files -- Specifying and examining files(\[^\r\n\]*\[\r\n\])+obscure -- Obscure features(\[^\r\n\]*\[\r\n\])+running -- Running the program(\[^\r\n\]*\[\r\n\])+stack -- Examining the stack(\[^\r\n\]*\[\r\n\])+status -- Status inquiries(\[^\r\n\]*\[\r\n\])+support -- Support facilities(\[^\r\n\]*\[\r\n\])+user-defined -- User-defined commands(\[^\r\n\]*\[\r\n\])+Type \"help\" followed by a class name for a list of commands in that class.(\[^\r\n\]*\[\r\n\])+Type \"help\" followed by command name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test handle
|
|
gdb_test "handle" "Argument required .signal to handle.*"
|
|
#test info "i" abbreviation
|
|
gdb_test "i" "List of info subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help info\" followed by info subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous." "info \"i\" abbreviation"
|
|
#test info
|
|
gdb_test "info" "List of info subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help info\" followed by info subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test ignore
|
|
gdb_test "ignore" "Argument required .a breakpoint number.*"
|
|
#test info address
|
|
gdb_test "info address" "Argument required."
|
|
#test info all-registers
|
|
gdb_test "info all-registers" "The program has no registers now."
|
|
#test info args
|
|
gdb_test "info args" "No frame selected."
|
|
#test info bogus-gdb-command
|
|
gdb_test "info bogus-gdb-command" "Undefined info command: \"bogus-gdb-command\". Try \"help info\".*"
|
|
#test info breakpoints
|
|
gdb_test "info breakpoints" "No breakpoints or watchpoints."
|
|
#test info copying
|
|
# FIXME -- doesn't work worth a shit
|
|
#send_gdb "info copying"
|
|
# -re "GNU GENERAL PUBLIC LICENSE.*#of preserving the free status of all derivatives of our free software and.*#of promoting the sharing and reuse of software generally."#
|
|
gdb_test "info copying"
|
|
# }
|
|
#
|
|
#
|
|
#test info display
|
|
gdb_test "info display" "There are no auto-display expressions now."
|
|
#test info frame "f" abbreviation
|
|
gdb_test "info f" "No stack.*|No selected frame.*" "info frame \"f\" abbreviation"
|
|
#test info frame
|
|
gdb_test "info frame" "No stack.|No selected frame."
|
|
#test info files
|
|
gdb_test_no_output "info files" "info files"
|
|
#test info float
|
|
gdb_test "info float" "The program has no registers now."
|
|
#test info functions
|
|
gdb_test "info functions" "All defined functions:"
|
|
#test info locals
|
|
gdb_test "info locals" "No frame selected."
|
|
#test info program
|
|
gdb_test "info program" "The program being debugged is not being run."
|
|
#test info registers
|
|
gdb_test "info registers" "The program has no registers now."
|
|
#test info stack "s" abbreviation
|
|
gdb_test "info s" "No stack." "info stack \"s\" abbreviation"
|
|
#test info stack
|
|
gdb_test "info stack" "No stack."
|
|
#test info set
|
|
# Test improved to check three parts:
|
|
# 1) confirm
|
|
# 2) prompt
|
|
# 3) write
|
|
# And only succeed if all three are matched.
|
|
# This should fix an old problem on native solaris 2.8,
|
|
# where this test fails due to this line:
|
|
# prompt: Gdb's prompt is "(gdb) ".^M
|
|
set set_confirm_seen 0
|
|
set set_prompt_seen 0
|
|
gdb_test_multiple "info set" "info set" {
|
|
-re "confirm: Whether to confirm potentially dangerous operations is o\[a-z\]*.(\[^\r\n\]*\[\r\n\])+history filename: The filename in which to record the command history is (\[^\r\n\]*\[\r\n\])+listsize: Number of source lines gdb will list by default is 10" {
|
|
verbose "Confirm dislayed"
|
|
set set_confirm_seen 1
|
|
exp_continue
|
|
}
|
|
-re "Gdb's prompt is \"$gdb_prompt \"" {
|
|
verbose "GDB prompt displayed"
|
|
set set_prompt_seen 1
|
|
exp_continue
|
|
}
|
|
-re "Writing into executable.*$gdb_prompt $" {
|
|
verbose "write displayed"
|
|
if { $set_prompt_seen && $set_confirm_seen } {
|
|
pass "info set"
|
|
} else {
|
|
verbose "prompt $set_prompt_seen confirm $set_confirm_seen"
|
|
fail "info set (incomplete output)"
|
|
}
|
|
}
|
|
}
|
|
gdb_test "info symbol" "Argument required .address.."
|
|
#test info source
|
|
gdb_test "info source" "No current source file..*"
|
|
#test info sources
|
|
gdb_test "info sources" "No symbol table is loaded. Use the \"file\" command.*"
|
|
#test info target
|
|
gdb_test_no_output "info target" "info target"
|
|
#test info terminal
|
|
gdb_test "info terminal" "No saved terminal information."
|
|
# test info threads
|
|
gdb_test "info threads" "No threads."
|
|
#test info types
|
|
gdb_test "info types" "All defined types:"
|
|
#test info variables
|
|
gdb_test "info variables" "All defined variables:"
|
|
#test info vector
|
|
gdb_test "info vector" "The program has no registers now."
|
|
#test info warranty
|
|
gdb_test "info warranty" "15. *Disclaimer of Warranty.*"
|
|
#test info watchpoints
|
|
gdb_test "info watchpoints" "No watchpoints."
|
|
#test inspect
|
|
gdb_test "inspect" "The history is empty."
|
|
#test jump
|
|
gdb_test "jump" "The program is not being run."
|
|
#test kill
|
|
gdb_test "kill" "The program is not being run."
|
|
#test list "l" abbreviation
|
|
gdb_test "l" "No symbol table is loaded. Use the \"file\" command.*" "list \"l\" abbreviation"
|
|
#test list
|
|
gdb_test "list" "No symbol table is loaded. Use the \"file\" command.*"
|
|
#test load
|
|
# The ``takes a file name'' case is for vxgdb.
|
|
# The ``Use the "file" command'' case is for newer GDB versions which try
|
|
# to deduce the filename from the exec file.
|
|
gdb_test "load" "You can't do that when your target is `None'.*|The load command takes a file name.*|Must specify at least a file name with the load command.*|.*Use the .file. or .exec-file. command.*"
|
|
#test next "n" abbreviation
|
|
gdb_test "n" "The program is not being run." "next \"n\" abbreviation"
|
|
#test next
|
|
gdb_test "next" "The program is not being run."
|
|
#test nexti "ni" abbreviation
|
|
gdb_test "ni" "The program is not being run." "nexti \"ni\" abbreviation"
|
|
#test nexti
|
|
gdb_test "nexti" "The program is not being run."
|
|
#test output
|
|
gdb_test "output" "Argument required .expression to compute.*"
|
|
|
|
#test overlay
|
|
gdb_test "overlay" "List of overlay subcommands:.*"
|
|
#test a non-existant overlay subcommand
|
|
gdb_test "overlay on" "Undefined overlay command.* Try \"help overlay\"."
|
|
gdb_test_no_output "overlay manual" "overlay manual #1"
|
|
gdb_test_no_output "overlay auto"
|
|
gdb_test_no_output "overlay off"
|
|
gdb_test "overlay list" "No sections are mapped."
|
|
gdb_test "overlay map" "Overlay debugging not enabled.*" "overlay map #1"
|
|
gdb_test "overlay unmap" "Overlay debugging not enabled.*" "overlay unmap #1"
|
|
gdb_test_no_output "overlay manual" "overlay manual #2"
|
|
gdb_test "overlay map" "Argument required: name of an overlay section." "overlay map #2"
|
|
gdb_test "overlay unmap" "Argument required: name of an overlay section." "overlay unmap #2"
|
|
|
|
#test print "p" abbreviation
|
|
gdb_test "p" "The history is empty." "print \"p\" abbreviation"
|
|
#test print
|
|
gdb_test "print" "The history is empty."
|
|
#test printf
|
|
gdb_test "printf" "Argument required .format-control string and values to print.*"
|
|
#test ptype
|
|
gdb_test "ptype" "The history is empty."
|
|
#test pwd
|
|
gdb_test "pwd" "Working directory .*"
|
|
|
|
#test run "r" abbreviation
|
|
if $use_gdb_stub {
|
|
# Only extended-remote supports "run".
|
|
} else {
|
|
gdb_test_multiple "r" "run \"r\" abbreviation" {
|
|
-re "Starting program: .*You can't do that when your target is `None'.*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Starting program: .*No executable file specified.*Use the \"file\" or \"exec-file\" command.*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Starting program: .*No executable specified, use .target exec.\\..*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Starting program: .*No image loaded into target.*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Starting program: .*No program loaded.*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Don't know how to run. Try \"help target\"..*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
-re "Starting program: .*Running the default executable on the remote target failed; try \"set remote exec-file\"?.*$gdb_prompt $"\
|
|
{ pass "run \"r\" abbreviation" }
|
|
}
|
|
}
|
|
|
|
#test run
|
|
if $use_gdb_stub {
|
|
# Only extended-remote supports "run".
|
|
} else {
|
|
gdb_test_multiple "run" "run" {
|
|
-re "Starting program:.*You can't do that when your target is `None'.*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Starting program: .*No executable file specified.*Use the \"file\" or \"exec-file\" command.*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Starting program: .*No executable specified, use .target exec.\\..*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Starting program: .*No image loaded into target.*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Starting program: .*No program loaded.*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Don't know how to run. Try \"help target\"..*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
-re "Starting program: .*Running the default executable on the remote target failed; try \"set remote exec-file\"?.*$gdb_prompt $"\
|
|
{ pass "run" }
|
|
}
|
|
}
|
|
|
|
#test rbreak
|
|
gdb_test "rbreak" "rbreak"
|
|
|
|
# test restore
|
|
gdb_test "restore" "You can't do that without a process to debug\."
|
|
|
|
#test return
|
|
# The middle case accomodated the obsolete a29k, where doing the "ni"
|
|
# above causes an initial stack to be created.
|
|
gdb_test "return" "No selected frame..*"
|
|
|
|
|
|
#test reverse-search
|
|
gdb_test "reverse-search" "No previous regular expression.*|There is no previous regular expression.*"
|
|
#test step "s" abbreviation
|
|
gdb_test "s" "The program is not being run." "step \"s\" abbreviation #1"
|
|
#test step
|
|
gdb_test "step" "The program is not being run." "step #1"
|
|
#test search
|
|
gdb_test "search" "No previous regular expression.*|There is no previous regular expression.*"
|
|
#test section
|
|
gdb_test "section" "Must specify section name and its virtual address.*"
|
|
#test set annotate
|
|
gdb_test "set annotate" "Argument required .integer to set it to.*"
|
|
#test set args
|
|
gdb_test_no_output "set args" "set args"
|
|
|
|
# Test set check abbreviations
|
|
foreach x {"c" "ch" "check"} {
|
|
gdb_test "set $x" "List of set check subcommands:(\[^\r\n\]*\[\r\n\])+set check range -- Set range checking(\[^\r\n\]*\[\r\n\])+set check type -- Set strict type checking(\[^\r\n\]*\[\r\n\])+Type \"help set check\" followed by set check subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous." \
|
|
"set check \"$x\" abbreviation"
|
|
}
|
|
|
|
#test set check range
|
|
gdb_test "set check range" ".*"
|
|
#test set check type
|
|
gdb_test "set check type" ".*"
|
|
#test set complaints
|
|
gdb_test "set complaints" "Argument required .integer to set it to.*"
|
|
#test set confirm
|
|
gdb_test_no_output "set confirm" "set confirm"
|
|
# Don't test set editing. What if we're talking to a gdb that
|
|
# won't do editing correctly while we're talking to it?
|
|
# gdb_test "set editing" "" "set editing"
|
|
|
|
#test set environment
|
|
gdb_test "set environment" "Argument required .environment variable and value.*"
|
|
#test set height
|
|
gdb_test "set height" "Argument required .integer to set it to.*"
|
|
#test set history expansion
|
|
gdb_test_no_output "set history expansion" "set history expansion"
|
|
# Make sure the history ends up in the right place.
|
|
gdb_test_no_output "set history filename [standard_output_file .gdb_history]" \
|
|
"set the history filename"
|
|
#test set history save
|
|
gdb_test_no_output "set history save" "set history save"
|
|
#test set history size
|
|
gdb_test "set history size" "Argument required .integer to set it to.*"
|
|
#test set history
|
|
gdb_test "set history" "List of set history subcommands:(\[^\r\n\]*\[\r\n\])+set history expansion -- Set history expansion on command input(\[^\r\n\]*\[\r\n\])+set history filename -- Set the filename in which to record the command history(\[^\r\n\]*\[\r\n\])+set history save -- Set saving of the history record on exit(\[^\r\n\]*\[\r\n\])+set history size -- Set the size of the command history(\[^\r\n\]*\[\r\n\])+Type \"help set history\" followed by set history subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test set language
|
|
gdb_test "set language" "Requires an argument. Valid arguments are auto, local, unknown, ada, asm, c, c.., d, fortran, go, minimal, modula-2, objective-c, opencl, pascal, rust."
|
|
#test set listsize
|
|
gdb_test "set listsize" "Argument required .integer to set it to.*"
|
|
#test set print "p" abbreviation
|
|
gdb_test "set p" "List of set print subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help set print\" followed by set print subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous." "set print \"p\" abbreviation"
|
|
#test set print "pr" abbreviation
|
|
gdb_test "set pr" "List of set print subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help set print\" followed by set print subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous." "set print \"pr\" abbreviation"
|
|
#test set print
|
|
gdb_test "set print" "List of set print subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help set print\" followed by set print subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test set print address
|
|
gdb_test_no_output "set print address" "set print address"
|
|
#test set print array
|
|
gdb_test_no_output "set print array" "set print array"
|
|
#test set print asm-demangle
|
|
gdb_test_no_output "set print asm-demangle" "set print asm-demangle"
|
|
#test set print demangle
|
|
gdb_test_no_output "set print demangle" "set print demangle"
|
|
#test set print elements
|
|
gdb_test "set print elements" \
|
|
"Argument required \\(integer to set it to, or \"unlimited\"\\)\\."
|
|
#test set print object
|
|
gdb_test_no_output "set print object" "set print object"
|
|
#test set print pretty
|
|
gdb_test_no_output "set print pretty" "set print pretty"
|
|
#test set print sevenbit-strings
|
|
gdb_test_no_output "set print sevenbit-strings" "set print sevenbit-strings"
|
|
#test set print union
|
|
gdb_test_no_output "set print union" "set print union"
|
|
#test set print vtbl
|
|
gdb_test_no_output "set print vtbl" "set print vtbl"
|
|
# FIXME -- need a test for "set prompt"
|
|
#test set radix
|
|
gdb_test "set radix" "Input and output radices now set to decimal 10, hex a, octal 12.*"
|
|
#test set variable
|
|
gdb_test "set variable" "Argument required .expression to compute.*"
|
|
#test set verbose
|
|
gdb_test_no_output "set verbose" "set verbose"
|
|
#test set width
|
|
gdb_test "set width" "Argument required .integer to set it to.*"
|
|
#test set write
|
|
# This is only supported on targets which use exec.o.
|
|
gdb_test_no_output "set write" "set write"
|
|
#test set
|
|
gdb_test "set" "Argument required .expression to compute.*"
|
|
#test shell echo Hi dad!
|
|
gdb_test "shell echo Hi dad!" "Hi dad!"
|
|
#test show annotate
|
|
gdb_test "show annotate" "Annotation_level is 0."
|
|
#test show args
|
|
gdb_test "show args" "Argument list to give program being debugged when it is started is \"\"."
|
|
|
|
# test show check abbreviations
|
|
foreach x {"c" "ch" "check"} {
|
|
gdb_test "show $x" "check range: *Range checking is \"auto; currently off\".(\[^\r\n\]*\[\r\n\])+check type: *Strict type checking is on\..*" \
|
|
"show check \"$x\" abbreviation"
|
|
}
|
|
|
|
#test show check range
|
|
gdb_test "show check range" "Range checking is \"auto; currently off\"."
|
|
#test show check type
|
|
gdb_test "show check type" "Strict type checking is on\."
|
|
#test show commands
|
|
gdb_test "show commands" ".*"
|
|
#test show complaints
|
|
gdb_test "show complaints" "Max number of complaints about incorrect symbols is 0."
|
|
#test show confirm
|
|
gdb_test "show confirm" "Whether to confirm potentially dangerous operations is o\[a-z\]*."
|
|
|
|
#test show convenience
|
|
# This is trickier as there are multiple internal convenience vars and
|
|
# functions and we can't assume any particular order.
|
|
# And we have to handle the extra convenience funs provided by Python.
|
|
set show_conv_list \
|
|
{ \
|
|
{$_sdata = void} \
|
|
{$_siginfo = void} \
|
|
{$_thread = 0} \
|
|
{$_gthread = 0} \
|
|
{$_inferior = 1} \
|
|
{$_exception = <error: No frame selected>} \
|
|
{$_probe_argc = <error: No frame selected>} \
|
|
{$_probe_arg0 = <error: No frame selected>} \
|
|
{$_probe_arg1 = <error: No frame selected>} \
|
|
{$_probe_arg2 = <error: No frame selected>} \
|
|
{$_probe_arg3 = <error: No frame selected>} \
|
|
{$_probe_arg4 = <error: No frame selected>} \
|
|
{$_probe_arg5 = <error: No frame selected>} \
|
|
{$_probe_arg6 = <error: No frame selected>} \
|
|
{$_probe_arg7 = <error: No frame selected>} \
|
|
{$_probe_arg8 = <error: No frame selected>} \
|
|
{$_probe_arg9 = <error: No frame selected>} \
|
|
{$_probe_arg10 = <error: No frame selected>} \
|
|
{$_probe_arg11 = <error: No frame selected>} \
|
|
{$_cimag = <internal function _cimag>} \
|
|
{$_creal = <internal function _creal>} \
|
|
{$_isvoid = <internal function _isvoid>} \
|
|
{$_gdb_maint_setting_str = <internal function _gdb_maint_setting_str>} \
|
|
{$_gdb_maint_setting = <internal function _gdb_maint_setting>} \
|
|
{$_gdb_setting_str = <internal function _gdb_setting_str>} \
|
|
{$_gdb_setting = <internal function _gdb_setting>} \
|
|
{$_gdb_major = 13} \
|
|
{$_gdb_minor = 1} \
|
|
{$_shell_exitsignal = void} \
|
|
{$_shell_exitcode = 0} \
|
|
}
|
|
if ![skip_python_tests] {
|
|
append show_conv_list \
|
|
{
|
|
{$_memeq = <internal function _memeq>} \
|
|
{$_regex = <internal function _regex>} \
|
|
{$_streq = <internal function _streq>} \
|
|
{$_strlen = <internal function _strlen>} \
|
|
{$_as_string = <internal function _as_string>} \
|
|
{$_caller_is = <internal function _caller_is>} \
|
|
{$_caller_matches = <internal function _caller_matches>} \
|
|
{$_any_caller_is = <internal function _any_caller_is>} \
|
|
{$_any_caller_matches = <internal function _any_caller_matches>} \
|
|
}
|
|
}
|
|
gdb_test_list_exact "show convenience" "show convenience" \
|
|
"\[^\r\n\]+\[\r\n\]+" \
|
|
"\[^\r\n\]+" \
|
|
$show_conv_list
|
|
|
|
#test show directories
|
|
gdb_test "show directories" "Source directories searched: .cdir\[:;\].cwd"
|
|
#test show editing
|
|
gdb_test "show editing" "Editing of command lines as they are typed is o\[a-z\]*."
|
|
#test show height
|
|
gdb_test "show height" "Number of lines gdb thinks are in a page is.*"
|
|
#test show history expansion
|
|
gdb_test "show history expansion" "History expansion on command input is o\[a-z\]*.*"
|
|
#test show history filename
|
|
gdb_test "show history filename" "The filename in which to record the command history is.*.gdb_history.*"
|
|
#test show history save
|
|
gdb_test "show history save" "Saving of the history record on exit is on."
|
|
#test show history size
|
|
gdb_test "show history size" "The size of the command history is.*"
|
|
#test show history
|
|
gdb_test "show history" "history expansion: *History expansion on command input is o(\[^\r\n\]*\[\r\n\])+history filename: *The filename in which to record the command history is.*.gdb_history(\[^\r\n\]*\[\r\n\])+history save: *Saving of the history record on exit is o(\[^\r\n\]*\[\r\n\])+history size: * The size of the command history is.*"
|
|
#test show language
|
|
gdb_test "show language" "The current source language is \"auto; currently c\"."
|
|
#test show listsize
|
|
gdb_test "show listsize" "Number of source lines gdb will list by default is 10."
|
|
#test show print "p" abbreviation
|
|
gdb_test "show p" ".*"
|
|
#test show print "pr" abbreviation
|
|
gdb_test "show pr" ".*"
|
|
#test show print
|
|
gdb_test "show print" ".*"
|
|
#test show paths
|
|
gdb_test "show paths" "Executable and object file path:.*"
|
|
#test show print address
|
|
gdb_test "show print address" "Printing of addresses is on."
|
|
#test show print array
|
|
gdb_test "show print array" "Pretty formatting of arrays is on."
|
|
#test show print asm-demangle
|
|
gdb_test "show print asm-demangle" "Demangling of C\[+\]+/ObjC names in disassembly listings is on."
|
|
#test show print demangle
|
|
gdb_test "show print demangle" "Demangling of encoded C\[+\]+/ObjC names when displaying symbols is on."
|
|
#test show print elements
|
|
gdb_test "show print elements" "Limit on string chars or array elements to print is 200."
|
|
#test show print object
|
|
gdb_test "show print object" "Printing of object's derived type based on vtable info is on."
|
|
#test show print pretty
|
|
gdb_test "show print pretty" "Pretty formatting of structures is on."
|
|
#test show print sevenbit-strings
|
|
gdb_test "show print sevenbit-strings" "Printing of 8-bit characters in strings as .nnn is on."
|
|
#test show print union
|
|
gdb_test "show print union" "Printing of unions interior to structures is on."
|
|
#test show print vtbl
|
|
gdb_test "show print vtbl" "Printing of C\[+\]+ virtual function tables is on."
|
|
#test show prompt
|
|
# In the FAIL case, can't just look for $gdb_prompt because that will match
|
|
# the output, rather than the prompt. So look for $gdb_prompt at the start
|
|
# of a line.
|
|
gdb_test "show prompt" "Gdb's prompt is \"$gdb_prompt \".*"
|
|
#test show radix
|
|
gdb_test "show radix" "Input and output radices set to decimal 10, hex a, octal 12."
|
|
#test show user
|
|
gdb_test_no_output "show user" "show user"
|
|
#test show values
|
|
gdb_test_no_output "show values" "show values"
|
|
#test show verbose
|
|
gdb_test "show verbose" "Verbose printing of informational messages is o.*|Verbosity is off.*"
|
|
#test show version
|
|
gdb_test "show version" "GNU gdb \[0-9\.\]*(\[^\r\n\]*\[\r\n\])+Copyright \\(C\\) \[0-9\]* Free Software Foundation, Inc(\[^\r\n\]*\[\r\n\])+License GPLv3\\+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>(\[^\r\n\]*\[\r\n\])+This is free software: you are free to change and redistribute it.(\[^\r\n\]*\[\r\n\])+There is NO WARRANTY, to the extent permitted by law.(\[^\r\n\]*\[\r\n\])+Type \"show copying\" and \"show warranty\" for details..*"
|
|
#test show width
|
|
gdb_test "show width" "Number of characters gdb thinks are in a line is.*"
|
|
#test show write
|
|
# This is only supported on targets which use exec.o.
|
|
gdb_test "show write" "Writing into executable and core files is o.*"
|
|
#test show
|
|
set show_confirm_seen 0
|
|
set show_prompt_seen 0
|
|
gdb_test_multiple "show" "show" {
|
|
-re "confirm: *Whether to confirm potentially dangerous operations is on.(\[^\r\n\]*\[\r\n\])+history filename: *The filename in which to record the command history is (\[^\r\n\]*\[\r\n\])+history save: *Saving of the history record on exit is on.(\[^\r\n\]*\[\r\n\])+history size: *The size of the command history is(\[^\r\n\]*\[\r\n\])+listsize: *Number of source lines gdb will list by default is 10(\[^\r\n]*\[\r\n\])+print elements: *Limit on string chars or array elements to print is 200." {
|
|
verbose "Confirm displayed"
|
|
set show_confirm_seen 1
|
|
exp_continue
|
|
}
|
|
-re "Gdb's prompt is \"$gdb_prompt \"" {
|
|
verbose "GDB prompt displayed"
|
|
set show_prompt_seen 1
|
|
exp_continue
|
|
}
|
|
-re "Writing into executable.*$gdb_prompt $" {
|
|
verbose "write displayed"
|
|
if { $show_prompt_seen && $show_confirm_seen } {
|
|
pass "show"
|
|
} else {
|
|
verbose "prompt $show_prompt_seen confirm $show_confirm_seen"
|
|
fail "show (incomplete output)"
|
|
}
|
|
}
|
|
}
|
|
#history saving should stay disabled
|
|
gdb_test_no_output "set history save off" "set history save off"
|
|
#test stepi "si" abbreviation
|
|
gdb_test "si" "The program is not being run." "stepi \"si\" abbreviation"
|
|
#test stepi
|
|
gdb_test "stepi" "The program is not being run."
|
|
#test signal
|
|
gdb_test "signal" "The program is not being run."
|
|
#test source
|
|
gdb_test "source" "source command requires file name of file to source..*|No such file or directory.*"
|
|
#test step "s" abbreviation
|
|
gdb_test "s" "The program is not being run." "step \"s\" abbreviation #2"
|
|
#test step
|
|
gdb_test "step" "The program is not being run." "step #2"
|
|
#test symbol-file
|
|
gdb_test "symbol-file" ".*"
|
|
|
|
#test target native
|
|
gdb_test "target native" "Use the \"run\" command to start a process.*|Undefined target command: \"native\". *Try \"help target\".*"
|
|
|
|
#test target core
|
|
send_gdb "target core\n"
|
|
gdb_expect {
|
|
-re "No core file specified..*$gdb_prompt $" { pass "target core" }
|
|
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
|
|
send_gdb "n\n"
|
|
if $verbose>1 then {
|
|
send_user "\t\tDidn't kill program being debugged\n"
|
|
}
|
|
gdb_expect -re "$gdb_prompt $" { }
|
|
pass "target core"
|
|
}
|
|
-re "Undefined target command: \"core\". Try \"help target\"..*$gdb_prompt $" { pass "target core" }
|
|
-re ".*$gdb_prompt $" { fail "target core" }
|
|
timeout { fail "(timeout) target core" }
|
|
}
|
|
|
|
#test target exec
|
|
send_gdb "target exec\n"
|
|
gdb_expect {
|
|
-re "No executable file now..*$gdb_prompt $"\
|
|
{ pass "target exec" }
|
|
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
|
|
send_gdb "n\n"
|
|
if $verbose>1 then {
|
|
send_user "\t\tDidn't kill program being debugged\n"
|
|
}
|
|
gdb_expect -re "$gdb_prompt $" { }
|
|
pass "target exec"
|
|
}
|
|
-re ".*$gdb_prompt $" { fail "target exec" }
|
|
timeout { fail "(timeout) target exec" }
|
|
}
|
|
|
|
#test target remote
|
|
send_gdb "target remote\n"
|
|
gdb_expect {
|
|
-re "To open a remote debug connection, you need to specify what.*serial.*device is attached to the remote system.*.e.g. .*$gdb_prompt $"\
|
|
{ pass "target remote" }
|
|
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
|
|
send_gdb "n\n"
|
|
if $verbose>1 then {
|
|
send_user "\t\tDidn't kill program being debugged\n"
|
|
}
|
|
gdb_expect -re "$gdb_prompt $" { }
|
|
pass "target remote"
|
|
}
|
|
-re ".*$gdb_prompt $" { fail "target remote" }
|
|
timeout { fail "(timeout) target remote" }
|
|
}
|
|
|
|
#test target
|
|
gdb_test "target" "List of target subcommands:(\[^\r\n\]*\[\r\n\])+Type \"help target\" followed by target subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test tbreak
|
|
gdb_test "tbreak" "No default breakpoint address now."
|
|
#test thread
|
|
gdb_test "thread" "No thread selected"
|
|
#test thread apply
|
|
gdb_test "thread apply" "Please specify a thread ID list"
|
|
#test thread find
|
|
gdb_test "thread find" "Command requires an argument."
|
|
#test thread name
|
|
gdb_test "thread name" "No thread selected"
|
|
#test until "u" abbreviation
|
|
gdb_test "u" "The program is not being run." "until \"u\" abbreviation"
|
|
#test until
|
|
gdb_test "until" "The program is not being run."
|
|
#test undisplay
|
|
# FIXME -- need to dump full output to detailed log
|
|
|
|
gdb_test "undisplay" \
|
|
"" \
|
|
"undisplay prompt" \
|
|
"Delete all auto-display expressions.*y or n. $" \
|
|
"y"
|
|
|
|
#test unset environment
|
|
|
|
gdb_test "unset environment" \
|
|
"" \
|
|
"unset environment prompt" \
|
|
"Delete all environment variables?.*y or n. $" \
|
|
"y"
|
|
|
|
#test unset
|
|
gdb_test "unset" "List of unset subcommands:(\[^\r\n\]*\[\r\n\])+unset environment -- Cancel environment variable VAR for the program(\[^\r\n\]*\[\r\n\])+Type \"help unset\" followed by unset subcommand name for full documentation.(\[^\r\n\]*\[\r\n\])+Command name abbreviations are allowed if unambiguous."
|
|
#test up
|
|
#test up-silently
|
|
gdb_test "up-silently" "No stack."
|
|
#test watch
|
|
gdb_test "watch" "Argument required .expression to compute.*"
|
|
#test whatis
|
|
gdb_test "whatis" "The history is empty."
|
|
#test where
|
|
gdb_test "where" "No stack."
|
|
#test x
|
|
gdb_test "x" "Argument required .starting display address.*"
|
|
|
|
gdb_exit
|
|
|
|
set timeout $prev_timeout
|