diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index bb77f981..63852edd 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -35,7 +35,7 @@ jobs: fail-fast: false matrix: os: [ 'ubuntu-latest', 'macOS-latest', 'windows-latest' ] - ghc: [ '9.4', '9.6', '9.8' ] + ghc: [ '9.4', '9.6', '9.8', '9.10', '9.12', '9.14' ] steps: - uses: actions/checkout@v4 diff --git a/tests/Network/SocketSpec.hs b/tests/Network/SocketSpec.hs index 3d57bafc..cf78c9d7 100644 --- a/tests/Network/SocketSpec.hs +++ b/tests/Network/SocketSpec.hs @@ -101,6 +101,13 @@ spec = do getSocketOption sock UserTimeout `shouldReturn` 2000 close sock + describe "DontFragment" $ do + it "can be set" $ do + sock <- socket AF_INET Stream defaultProtocol + when (isSupportedSocketOption DontFragment) $ + setSocketOption sock DontFragment 1 + close sock + describe "getAddrInfo" $ do it "works for IPv4 address" $ do let hints = defaultHints { addrFlags = [AI_NUMERICHOST, AI_ADDRCONFIG] }