http3-0.1.5: test/HTTP3/ErrorSpec.hs

module HTTP3.ErrorSpec where

import Data.ByteString ()
import Data.IORef
import Test.Hspec

import HTTP3.Config
import HTTP3.Error
import HTTP3.Server

-- | The server counts the requests it is handed, so that a test can check a
-- rejected one never got that far.
spec :: Spec
spec =
    beforeAll start $
        afterAll (teardown . fst) $
            h3ErrorSpec testClientConfig testH3ClientConfig 2000 -- 2 seconds
  where
    start = do
        ref <- newIORef 0
        tid <- setup (countingServer ref) 4096
        return (tid, ref)