Multicast tests: pass exceptions to framework

ocsigen · Sep 27, 2019 · b4c53ae · b4c53ae
1 parent 6941a73
commit b4c53ae
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/test/unix/test_mcast.ml b/test/unix/test_mcast.ml
@@ -59,9 +59,7 @@ let test_mcast name join set_loop =
           | Lwt_unix.Timeout ->
             Lwt.return should_timeout
           | e ->
-            Printf.eprintf "\ntest_mcast: unexpected failure: %S\n%!"
-              (Printexc.to_string e);
-            Lwt.return false
+            Lwt.fail e
         )
     in
     Lwt.finalize t (fun () -> Lwt.join [Lwt_unix.close fd1; Lwt_unix.close fd2])