[46/46] Use require gnat_runtime_has_debug_info

Message ID 20221217000818.3729389-47-tom@tromey.com
State Committed
Headers
Series Rewrite "require" test procedure and use it more often |

Commit Message

Tom Tromey Dec. 17, 2022, 12:08 a.m. UTC
  This changes some tests to use "require gnat_runtime_has_debug_info".
---
 gdb/testsuite/gdb.ada/dynamic-iface.exp | 5 +----
 gdb/testsuite/gdb.ada/interface.exp     | 5 +----
 gdb/testsuite/gdb.ada/iwide.exp         | 5 +----
 gdb/testsuite/gdb.ada/mi_interface.exp  | 5 +----
 gdb/testsuite/gdb.ada/tagged.exp        | 5 +----
 gdb/testsuite/gdb.ada/tagged_access.exp | 5 +----
 6 files changed, 6 insertions(+), 24 deletions(-)
  

Patch

diff --git a/gdb/testsuite/gdb.ada/dynamic-iface.exp b/gdb/testsuite/gdb.ada/dynamic-iface.exp
index e75569c48b8..a22a1cf7d4e 100644
--- a/gdb/testsuite/gdb.ada/dynamic-iface.exp
+++ b/gdb/testsuite/gdb.ada/dynamic-iface.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile main
 
diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp
index bf08aa59601..a9040eb3f8c 100644
--- a/gdb/testsuite/gdb.ada/interface.exp
+++ b/gdb/testsuite/gdb.ada/interface.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile foo
 
diff --git a/gdb/testsuite/gdb.ada/iwide.exp b/gdb/testsuite/gdb.ada/iwide.exp
index fc4bc79eb65..073613359b2 100644
--- a/gdb/testsuite/gdb.ada/iwide.exp
+++ b/gdb/testsuite/gdb.ada/iwide.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile p
 
diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp
index 2ddf4b1fca5..2dc677fb3ea 100644
--- a/gdb/testsuite/gdb.ada/mi_interface.exp
+++ b/gdb/testsuite/gdb.ada/mi_interface.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile foo
 
diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp
index 7de8cf331e7..22d1bc7bcb8 100644
--- a/gdb/testsuite/gdb.ada/tagged.exp
+++ b/gdb/testsuite/gdb.ada/tagged.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile foo
 
diff --git a/gdb/testsuite/gdb.ada/tagged_access.exp b/gdb/testsuite/gdb.ada/tagged_access.exp
index 26be69f0d4b..4441a78ed51 100644
--- a/gdb/testsuite/gdb.ada/tagged_access.exp
+++ b/gdb/testsuite/gdb.ada/tagged_access.exp
@@ -17,10 +17,7 @@  load_lib "ada.exp"
 
 require !skip_ada_tests
 
-if {![gnat_runtime_has_debug_info]} {
-    untested "GNAT runtime debuginfo required for this test"
-    return -1
-}
+require gnat_runtime_has_debug_info
 
 standard_ada_testfile p