From 7cca40dfa4d64a03845e29322f18c2b382ff354a Mon Sep 17 00:00:00 2001 From: Anders Fugmann Date: Sat, 16 Mar 2024 20:06:11 +0100 Subject: [PATCH] Accept unknown events in tests - addresses problem on opensuse --- zmq/test/zmq_test.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/zmq/test/zmq_test.ml b/zmq/test/zmq_test.ml index 7c4fb17..c82038b 100644 --- a/zmq/test/zmq_test.ml +++ b/zmq/test/zmq_test.ml @@ -107,6 +107,9 @@ let test_monitor () = let rec receive_event ~end_time = match Zmq.Monitor.recv ~block:false socket with | event -> Zmq.Monitor.string_of_event event + | exception Invalid_argument(s) -> + Printf.eprintf "Warning: Invalid_argument: %s\n" s; + receive_event ~end_time | exception Unix.Unix_error(Unix.EAGAIN, _, _) when end_time > (Unix.gettimeofday ()) -> sleep 10; receive_event ~end_time