skipping test

ocaml-multicore · Nov 3, 2024 · 0f65d34 · 0f65d34
1 parent f8c9441
commit 0f65d34
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/lib_eio_linux/tests/test.ml b/lib_eio_linux/tests/test.ml
@@ -1,3 +1,7 @@
+exception Skip_test of string
+let skip _stdenv =
+  raise (Skip_test "io_uring not available in Docker")
+
 open Eio.Std
 
 module Trace = Eio.Private.Trace
@@ -19,7 +23,7 @@ let read_one_byte ~sw r =
     )
 
 let test_poll_add () =
-  Eio_linux.run @@ fun _stdenv ->
+  Eio_linux.run ~fallback:skip (fun _stdenv ->
   Switch.run @@ fun sw ->
   let r, w = Eio_unix.pipe sw in
   let thread = read_one_byte ~sw r in
@@ -32,10 +36,10 @@ let test_poll_add () =
   assert (sent = 1);
   let result = Promise.await_exn thread in
   Alcotest.(check string) "Received data" "!" result
-
+)
 let test_poll_add_busy () =
-  Eio_linux.run ~queue_depth:2 @@ fun _stdenv ->
-  Switch.run @@ fun sw ->
+  Eio_linux.run ~queue_depth:2 ~fallback:skip (fun _stdenv ->
+    Switch.run @@ fun sw ->
   let r, w = Eio_unix.pipe sw in
   let a = read_one_byte ~sw r in
   let b = read_one_byte ~sw r in
@@ -50,7 +54,7 @@ let test_poll_add_busy () =
   Alcotest.(check string) "Received data" "!" a;
   let b = Promise.await_exn b in
   Alcotest.(check string) "Received data" "!" b
-
+)
 (* Write a string to a pipe and read it out again. *)
 let test_copy () =
   Eio_linux.run ~queue_depth:3 @@ fun _stdenv ->
@@ -259,4 +263,4 @@ let () =
       test_case "signal_race"          `Quick test_signal_race;
       test_case "alloc-fixed-or-wait"  `Quick test_alloc_fixed_or_wait;
     ];
-  ]
+  ]