mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-12-09 04:21:49 +08:00
Code Issues Packages Projects Releases Wiki Activity

Rename to allow_guile_tests

Browse Source 
This changes skip_guile_tests to invert the sense, and renames it to
allow_guile_tests.  It also rewrites this proc to check the output of
"gdb --configuration", as was done for Python.  Then it changes the
code to use "require" where possible.
This commit is contained in:
Tom Tromey 2023-01-08 12:01:33 -07:00
parent e0c86460bc
commit e71b6502bf
28 changed files with 56 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/gdb.guile/scm-arch.exp
View File

@ -15,15 +15,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-block.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-breakpoint.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
proc_with_prefix test_bkpt_basic { } {
global srcfile testfile hex decimal

5
gdb/testsuite/gdb.guile/scm-cmd.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-disasm.exp
View File

@ -15,15 +15,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-equal.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-error.exp
View File

@ -19,13 +19,12 @@ set testfile "scm-error"
load_lib gdb-guile.exp
require allow_guile_tests
# Start with a fresh gdb.
gdb_exit
gdb_start
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
# Test error while loading .scm.
set remote_guile_file_1 [gdb_remote_download host \

5
gdb/testsuite/gdb.guile/scm-frame-args.exp
View File

@ -15,15 +15,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-frame-inline.exp
View File

@ -15,15 +15,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-frame.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
# The following tests require execution.
if ![gdb_guile_runto_main] {

5
gdb/testsuite/gdb.guile/scm-gsmob.exp
View File

@ -18,13 +18,12 @@
load_lib gdb-guile.exp
require allow_guile_tests
# Start with a fresh gdb.
gdb_exit
gdb_start
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
gdb_reinitialize_dir $srcdir/$subdir
gdb_install_guile_utils

5
gdb/testsuite/gdb.guile/scm-iterator.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-lazy-string.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
#gdb_install_guile_utils
#gdb_install_guile_module

5
gdb/testsuite/gdb.guile/scm-math.exp
View File

@ -18,6 +18,8 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
proc test_value_numeric_ops {} {
@ -335,9 +337,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c}]} {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-objfile-script.exp
View File

@ -18,6 +18,8 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
@ -28,9 +30,6 @@ if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
gdb_exit
gdb_start
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
# Make the -gdb.scm script available to gdb, it is automagically loaded by gdb.
# Care is taken to put it in the same directory as the binary so that
# gdb will find it.

5
gdb/testsuite/gdb.guile/scm-objfile.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-parameter.exp
View File

@ -18,14 +18,13 @@
load_lib gdb-guile.exp
require allow_guile_tests
# Start with a fresh gdb.
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
gdb_install_guile_utils
gdb_install_guile_module

5
gdb/testsuite/gdb.guile/scm-ports.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-pretty-print.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
# Start with a fresh gdb.
gdb_exit
gdb_start
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
proc run_lang_tests {exefile lang} {
with_test_prefix "lang=$lang" {
global srcdir subdir srcfile testfile hex

5
gdb/testsuite/gdb.guile/scm-progspace.exp
View File

@ -18,6 +18,8 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
@ -30,9 +32,6 @@ gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
gdb_install_guile_utils
gdb_install_guile_module

5
gdb/testsuite/gdb.guile/scm-section-script.exp
View File

@ -30,6 +30,8 @@ if {![istarget *-*-linux*]
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
# Make this available to gdb before the program starts, it is
@ -48,9 +50,6 @@ if {[build_executable $testfile.exp $testfile $srcfile \
gdb_exit
gdb_start
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
gdb_reinitialize_dir $srcdir/$subdir
# Try first with a restrictive safe-path.

5
gdb/testsuite/gdb.guile/scm-symbol.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
# These tests are done before we call gdb_guile_runto_main so we have to
# import the gdb module ourselves.
gdb_install_guile_utils

5
gdb/testsuite/gdb.guile/scm-symtab.exp
View File

@ -18,6 +18,8 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile scm-symtab.c scm-symtab-2.c
if {[prepare_for_testing "failed to prepare" $testfile \
@ -25,9 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

2
gdb/testsuite/gdb.guile/scm-type.exp
View File

@ -43,7 +43,7 @@ proc restart_gdb {exefile} {
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${exefile}
if { [skip_guile_tests] } {
if { ![allow_guile_tests] } {
return 0
}

5
gdb/testsuite/gdb.guile/scm-value-cc.exp
View File

@ -18,7 +18,7 @@
load_lib gdb-guile.exp
require allow_cplus_tests
require allow_cplus_tests allow_guile_tests
standard_testfile .cc
@ -26,9 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
return
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

5
gdb/testsuite/gdb.guile/scm-value.exp
View File

@ -18,6 +18,8 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile
set has_argv0 [gdb_has_argv0]
@ -427,9 +429,6 @@ if { [build_inferior "${binfile}" "c"] < 0 } {
# Start with a fresh gdb.
clean_restart ${binfile}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
gdb_install_guile_utils
gdb_install_guile_module

5
gdb/testsuite/gdb.guile/types-module.exp
View File

@ -18,15 +18,14 @@
load_lib gdb-guile.exp
require allow_guile_tests
standard_testfile .cc
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
return -1
}
# Skip all tests if Guile scripting is not enabled.
if { [skip_guile_tests] } { continue }
if ![gdb_guile_runto_main] {
return
}

21
gdb/testsuite/lib/gdb-guile.exp
View File

@ -18,24 +18,11 @@
# Guile doesn't print the 0x prefix on hex numbers.
set ghex {[0-9a-f]+}
# Return a 1 for configurations that do not support Guile scripting.
# Return a 1 for configurations that support Guile scripting.
proc skip_guile_tests {} {
global gdb_prompt
gdb_test_multiple "guile (display \"test\\n\")" "verify guile support" {
-re "Undefined command.*$gdb_prompt $" {
unsupported "Guile not supported."
return 1
}
-re "not supported.*$gdb_prompt $" {
unsupported "Guile support is disabled."
return 1
}
-re "$gdb_prompt $" {}
}
return 0
gdb_caching_proc allow_guile_tests {
set output [exec $::GDB --configuration]
return [expr {[string first "--with-guile" $output] != -1}]
}
# Run a command in GDB, and report a failure if a Scheme exception is thrown.