diff --git a/test/test.hs b/test/test.hs
index 90f10d8..fa6e627 100644
--- a/test/test.hs
+++ b/test/test.hs
@@ -99,6 +99,7 @@ group01 = testGroup "connect" [ testGroup "Inet/Stream/TCP" t1 ]
               case r of
                 Left e   | e == eNetworkUnreachable  -> return ()
                          | e == eAddressNotAvailable -> return ()
+                         | e == eAddressFamilyNotSupported -> return ()
                          | otherwise                 -> throwIO e
                 Right () -> assertFailure "connection should have failed"
           )