Merge pull request #129 from issuu/andersfugmann/fix_race_in_monitor_…

…test Fix race in monitor test
issuu · Oct 26, 2023 · 3d1fa01 · 3d1fa01
2 parents 7651911 + fc0f0df
commit 3d1fa01
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/zmq/test/zmq_test.ml b/zmq/test/zmq_test.ml
@@ -138,8 +138,9 @@ let test_monitor () =
   end;
   Zmq.Socket.close s1;
   assert_event "m1" m1 "Closed";
-  Zmq.Socket.close s2;
+  assert_event "m1" m1 "Monitor_stopped";
   assert_event "m2" m2 "Disconnect";
+  Zmq.Socket.close s2;
 
   Zmq.Socket.close m2;
   Zmq.Socket.close m1;
@@ -165,7 +166,7 @@ let test_proxy () =
   in
 
   let _thread = Thread.create proxy (pull, pub) in
-  sleep 10;
+  sleep 10; (* Wait until the proxy has been created *)
   let sub =
     let s = Zmq.Socket.create ctx sub in
     Zmq.Socket.connect s pub_endpoint;