Skip multicast tests when networking not available

ocsigen · Sep 27, 2019 · 584f342 · 584f342
1 parent b4c53ae
commit 584f342
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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
         )