[v2,42/79] Use require skip_opencl_tests

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

Commit Message

Tom Tromey Jan. 12, 2023, 3 a.m. UTC
  This changes some tests to use "require skip_opencl_tests".
---
 gdb/testsuite/gdb.opencl/callfuncs.exp   | 5 +----
 gdb/testsuite/gdb.opencl/convs_casts.exp | 5 +----
 gdb/testsuite/gdb.opencl/datatypes.exp   | 5 +----
 gdb/testsuite/gdb.opencl/operators.exp   | 5 +----
 gdb/testsuite/gdb.opencl/vec_comps.exp   | 5 +----
 5 files changed, 5 insertions(+), 20 deletions(-)
  

Patch

diff --git a/gdb/testsuite/gdb.opencl/callfuncs.exp b/gdb/testsuite/gdb.opencl/callfuncs.exp
index f5bd28f66a0..98b34ab08cd 100644
--- a/gdb/testsuite/gdb.opencl/callfuncs.exp
+++ b/gdb/testsuite/gdb.opencl/callfuncs.exp
@@ -19,10 +19,7 @@ 
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "callfuncs"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/convs_casts.exp b/gdb/testsuite/gdb.opencl/convs_casts.exp
index adfc2982613..9764d75fcb5 100644
--- a/gdb/testsuite/gdb.opencl/convs_casts.exp
+++ b/gdb/testsuite/gdb.opencl/convs_casts.exp
@@ -19,10 +19,7 @@ 
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "convs_casts"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/datatypes.exp b/gdb/testsuite/gdb.opencl/datatypes.exp
index 07558537744..69d07e7b695 100644
--- a/gdb/testsuite/gdb.opencl/datatypes.exp
+++ b/gdb/testsuite/gdb.opencl/datatypes.exp
@@ -19,10 +19,7 @@ 
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "datatypes"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/operators.exp b/gdb/testsuite/gdb.opencl/operators.exp
index fd1bf87482d..31a7ee87873 100644
--- a/gdb/testsuite/gdb.opencl/operators.exp
+++ b/gdb/testsuite/gdb.opencl/operators.exp
@@ -19,10 +19,7 @@ 
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "operators"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]
diff --git a/gdb/testsuite/gdb.opencl/vec_comps.exp b/gdb/testsuite/gdb.opencl/vec_comps.exp
index 7eb2e8f92ae..1ea2bd9d7ec 100644
--- a/gdb/testsuite/gdb.opencl/vec_comps.exp
+++ b/gdb/testsuite/gdb.opencl/vec_comps.exp
@@ -19,10 +19,7 @@ 
 
 load_lib opencl.exp
 
-if { [skip_opencl_tests] } {
-    unsupported "OpenCL support not detected"
-    return 0
-}
+require !skip_opencl_tests
 
 set testfile "vec_comps"
 set clprogram [remote_download target ${srcdir}/${subdir}/${testfile}.cl]