Accept unknown events in tests - addresses problem on opensuse

issuu · Mar 16, 2024 · 7cca40d · 7cca40d
1 parent 1032b31
commit 7cca40d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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