From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from barracuda.ebox.ca (barracuda.ebox.ca [96.127.255.19]) by sourceware.org (Postfix) with ESMTPS id 4E35D3857033 for ; Wed, 14 Jul 2021 04:55:24 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 4E35D3857033 X-ASG-Debug-ID: 1626238521-0c856e67e219ef220001-fS2M51 Received: from smtp.ebox.ca (smtp.ebox.ca [96.127.255.82]) by barracuda.ebox.ca with ESMTP id i3QPPCEo3DXzKPix (version=TLSv1 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 14 Jul 2021 00:55:21 -0400 (EDT) X-Barracuda-Envelope-From: simon.marchi@polymtl.ca X-Barracuda-RBL-Trusted-Forwarder: 96.127.255.82 Received: from simark.localdomain (192-222-157-6.qc.cable.ebox.net [192.222.157.6]) by smtp.ebox.ca (Postfix) with ESMTP id 3ADA3441D66; Wed, 14 Jul 2021 00:55:21 -0400 (EDT) From: Simon Marchi X-Barracuda-RBL-IP: 192.222.157.6 X-Barracuda-Effective-Source-IP: 192-222-157-6.qc.cable.ebox.net[192.222.157.6] X-Barracuda-Apparent-Source-IP: 192.222.157.6 To: gdb-patches@sourceware.org Subject: [PATCH 03/16] gdb.base/setshow.exp: split in procs Date: Wed, 14 Jul 2021 00:55:07 -0400 X-ASG-Orig-Subj: [PATCH 03/16] gdb.base/setshow.exp: split in procs Message-Id: <20210714045520.1623120-4-simon.marchi@polymtl.ca> X-Mailer: git-send-email 2.32.0 In-Reply-To: <20210714045520.1623120-1-simon.marchi@polymtl.ca> References: <20210714045520.1623120-1-simon.marchi@polymtl.ca> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Barracuda-Connect: smtp.ebox.ca[96.127.255.82] X-Barracuda-Start-Time: 1626238521 X-Barracuda-Encrypted: DHE-RSA-AES256-SHA X-Barracuda-URL: https://96.127.255.19:443/cgi-mod/mark.cgi X-Barracuda-BRTS-Status: 1 X-Virus-Scanned: by bsmtpd at ebox.ca X-Barracuda-Scan-Msg-Size: 31615 X-Barracuda-Spam-Score: 0.00 X-Barracuda-Spam-Status: No, SCORE=0.00 using global scores of TAG_LEVEL=1000.0 QUARANTINE_LEVEL=1000.0 KILL_LEVEL=8.0 tests= X-Barracuda-Spam-Report: Code version 3.2, rules version 3.2.3.91193 Rule breakdown below pts rule name description ---- ---------------------- -------------------------------------------------- X-Spam-Status: No, score=-16.9 required=5.0 tests=BAYES_00, GIT_PATCH_0, KAM_DMARC_QUARANTINE, KAM_DMARC_STATUS, RCVD_IN_DNSWL_LOW, SPF_HELO_NONE, SPF_SOFTFAIL, TXREP autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 14 Jul 2021 04:55:28 -0000 Split in multiple procs, one per topic, and start with a fresh GDB in each. I find it easier to work on a test with multiple smaller independent test procedures. For example, it's possible to comment all but one when working on one. It's also easier to add things without having to think about the impact on existing tests, and vice-versa. Change-Id: I19691eed8f9bcb975b2eeff7577cac66251bcbe2 --- gdb/testsuite/gdb.base/setshow.exp | 729 +++++++++++++++++------------ 1 file changed, 435 insertions(+), 294 deletions(-) diff --git a/gdb/testsuite/gdb.base/setshow.exp b/gdb/testsuite/gdb.base/setshow.exp index 7b273b3902a5..bfc689b184e5 100644 --- a/gdb/testsuite/gdb.base/setshow.exp +++ b/gdb/testsuite/gdb.base/setshow.exp @@ -15,6 +15,10 @@ # 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 @@ -23,280 +27,361 @@ if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable {debug}] return -1 } -# Start with a fresh gdb +proc_with_prefix test_setshow_annotate {} { + # Start with a fresh gdb + clean_restart $::binfile -clean_restart ${binfile} + if ![runto_main] then { + fail "can't run to main" + return + } -# make sure $pc is sane, in case we're talking to a board. -if ![runto_main] then { - fail "can't run to main" - return 0 -} + #test default annotation_level is 0 + gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level is zero" -# -# Test gdb set and show commands. -# Add tests here for show and set that don't fit neatly elsewhere. -# FIXME: many rudimentary tests for set and show commands have been -# added below, but most do nothing more than check that a -# variable has been set successfully, ie. they do not test -# whether setting the variable has had the desired effect. -# + #test set annotate 2 -#test default annotation_level is 0 -gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level is zero" + # 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" -#test set annotate 2 + gdb_test_multiple "set annotate 2" "set annotate 2" { + -re "\r\n$::gdb_prompt$" { + pass "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 "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" + } + } - gdb_test_multiple "set annotate 2" "set annotate 2" { - -re "\r\n$gdb_prompt$" { - pass "set 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" + } } } - 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 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 { + fail "can't run to main" + return + } + + gdb_test "show args" "Argument list to give program being debugged when it is started is \"\"\." + 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\"..*" + 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 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 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)" } -#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" - -gdb_test "show args" "Argument list to give program being debugged when it is started is \"\"\." -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\"..*" -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_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)" } -#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)" - -#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" - - - -#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)" -#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)" -#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)" -#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.*" -#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" -#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 - } + +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)" } -#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 + +proc_with_prefix test_setshow_prompt {} { + clean_restart + + if [board_info target exists gdb_prompt] { + return } -} -#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)" -#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)" -#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)" - -if ![board_info target exists gdb_prompt] { - #test set prompt (FooBarBaz) + + #test set prompt (FooBarBaz) set newprompt "\\(FooBarBaz\\)" gdb_test_multiple "set prompt (FooBarBaz) " "set prompt FooBarBaz" { @@ -305,57 +390,113 @@ if ![board_info target exists gdb_prompt] { } } - #test show 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) - + #test set prompt (gdb) gdb_test_multiple "set prompt (gdb) " "set prompt gdb" { - -re "\[\r\n\]$gdb_prompt $" { + -re "\[\r\n\]$::gdb_prompt $" { pass "set prompt gdb" } } } -#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)" -#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)" -#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)" -#test show user -gdb_test_no_output "show user" "show user" -#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)" -#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" +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 -- 2.32.0