From 584f34262020bc97c992506255ecb63106f76d67 Mon Sep 17 00:00:00 2001 From: Anton Bachin Date: Fri, 27 Sep 2019 07:34:07 -0500 Subject: [PATCH] Skip multicast tests when networking not available --- test/unix/test_mcast.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/unix/test_mcast.ml b/test/unix/test_mcast.ml index 38d9908653..272416f829 100644 --- a/test/unix/test_mcast.ml +++ b/test/unix/test_mcast.ml @@ -58,6 +58,9 @@ let test_mcast name join set_loop = (function | Lwt_unix.Timeout -> Lwt.return should_timeout + | Unix.Unix_error (Unix.ENODEV, "setsockopt", _) + | Unix.Unix_error (Unix.ENETUNREACH, "send", _) -> + Lwt.fail Skip | e -> Lwt.fail e )