From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp-out1.suse.de (smtp-out1.suse.de [195.135.220.28]) by sourceware.org (Postfix) with ESMTPS id 0ADAF3954C63 for ; Wed, 16 Nov 2022 10:20:30 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 0ADAF3954C63 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=suse.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=suse.de Received: from imap2.suse-dmz.suse.de (imap2.suse-dmz.suse.de [192.168.254.74]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by smtp-out1.suse.de (Postfix) with ESMTPS id 2F10F336EA for ; Wed, 16 Nov 2022 10:20:29 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_rsa; t=1668594029; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc: mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=nBkn24IOITagtDHliRxyva3Q71tC8kETzSOJWSnzLM0=; b=mGT5sh8Vh9tSKw7LOvdoMc6HFiUlTQx0MPov13UlJDUdJXq84U8FclM3efzPi0e0LghsON CaaKBe21p7RKtFKYYhitROK2q1EG8j3w1nU1CUP74MP5cE/Q7qujQkJ9AHSAtZoHGgXhM1 Sbv6ZThJ4IJUP3Hm6IMCO/77ns2TxGs= DKIM-Signature: v=1; a=ed25519-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_ed25519; t=1668594029; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc: mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=nBkn24IOITagtDHliRxyva3Q71tC8kETzSOJWSnzLM0=; b=Lr0vg6IKXm/lCItrSdT30CjUSQC+tafTMy+pt9KbA+iuWrj56WpgEl0iAJa9O2Wmyx4j1B zSG0E9G2lqLu0XCA== Received: from imap2.suse-dmz.suse.de (imap2.suse-dmz.suse.de [192.168.254.74]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by imap2.suse-dmz.suse.de (Postfix) with ESMTPS id 1712E13480 for ; Wed, 16 Nov 2022 10:20:29 +0000 (UTC) Received: from dovecot-director2.suse.de ([192.168.254.65]) by imap2.suse-dmz.suse.de with ESMTPSA id KKt4BG25dGO6TAAAMHmgww (envelope-from ) for ; Wed, 16 Nov 2022 10:20:29 +0000 From: Tom de Vries To: gdb-patches@sourceware.org Subject: [pushed 2/2] [gdb/testsuite] Modernize gdb.arch/i386-biarch-core.exp Date: Wed, 16 Nov 2022 11:20:28 +0100 Message-Id: <20221116102028.18591-2-tdevries@suse.de> X-Mailer: git-send-email 2.35.3 In-Reply-To: <20221116102028.18591-1-tdevries@suse.de> References: <20221116102028.18591-1-tdevries@suse.de> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-12.6 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,GIT_PATCH_0,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: I noticed in test-case gdb.arch/i386-biarch-core.exp that we run into the completion limit for "complete set gnutarget": ... set gnutarget vms-libtxt^M set gnutarget *** List may be truncated, max-completions reached. ***^M (gdb) PASS: gdb.arch/i386-biarch-core.exp: complete set gnutarget ... Fix this by using get_set_option_choices. Also use get_set_option_choices for "complete set architecture i386", which required extending get_set_option_choices to accept a second argument, such that we can do: ... set archs [get_set_option_choices "set architecture" "i386"] ... because this returns an empty list: ... set archs [get_set_option_choices "set architecture i386"] ... because it does "complete set architecture i386 ". Also clean up the explicit gdb_exit/gdb_start and use clean_restart instead. Tested on x86_64-linux. --- gdb/testsuite/gdb.arch/i386-biarch-core.exp | 29 +++++---------------- gdb/testsuite/lib/gdb.exp | 18 ++++++++++--- 2 files changed, 21 insertions(+), 26 deletions(-) diff --git a/gdb/testsuite/gdb.arch/i386-biarch-core.exp b/gdb/testsuite/gdb.arch/i386-biarch-core.exp index e1f65900379..95e60d0b552 100644 --- a/gdb/testsuite/gdb.arch/i386-biarch-core.exp +++ b/gdb/testsuite/gdb.arch/i386-biarch-core.exp @@ -28,20 +28,12 @@ if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then { standard_testfile -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir +clean_restart -set test "complete set gnutarget" -gdb_test_multiple "complete set gnutarget " $test { - -re "set gnutarget elf64-little\r\n(.*\r\n)?$gdb_prompt $" { - pass $test - } - -re "\r\n$gdb_prompt $" { - pass $test - untested ".text is readable" - return - } +set gnutargets [get_set_option_choices "set gnutarget"] +if { [lsearch -exact $gnutargets elf64-little] == -1 } { + untested ".text is readable" + return } set corebz2file ${srcdir}/${subdir}/${testfile}.core.bz2 @@ -62,15 +54,8 @@ if {$corestat(size) != 102400} { # First check if this particular GDB supports i386, otherwise we should not # expect the i386 core file to be loaded successfully. -set supports_arch_i386 1 -set test "complete set architecture i386" -gdb_test_multiple $test $test { - -re "\r\nset architecture i386\r\n(.*\r\n)?$gdb_prompt $" { - } - -re "\r\n$gdb_prompt $" { - set supports_arch_i386 0 - } -} +set archs [get_set_option_choices "set architecture" "i386"] +set supports_arch_i386 [expr [lsearch -exact $archs i386] != -1] # Wrongly built GDB complains by: # "..." is not a core dump: File format not recognized diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index f540770189d..042d7ade59f 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -9146,13 +9146,23 @@ gdb_caching_proc has_hw_wp_support { return $has_hw_wp_support } -# Return a list of all the accepted values of the set command SET_CMD. +# Return a list of all the accepted values of the set command +# "SET_CMD SET_ARG". +# For example get_set_option_choices "set architecture" "i386". -proc get_set_option_choices {set_cmd} { +proc get_set_option_choices { set_cmd {set_arg ""} } { set values {} - set cmd "complete $set_cmd " - set test "complete $set_cmd" + if { $set_arg == "" } { + # Add trailing space to signal that we need completion of the choices, + # not of set_cmd itself. + set cmd "complete $set_cmd " + } else { + set cmd "complete $set_cmd $set_arg" + } + + # Set test name without trailing space. + set test [string trim $cmd] with_set max-completions unlimited { gdb_test_multiple $cmd $test { -- 2.35.3