http-media-0.3.0: test/Tests.hs
------------------------------------------------------------------------------
module Tests (tests) where
------------------------------------------------------------------------------
import Distribution.TestSuite
------------------------------------------------------------------------------
import qualified Network.HTTP.Media.Tests as Media
import qualified Network.HTTP.Media.Accept.Tests as Accept
import qualified Network.HTTP.Media.MediaType.Tests as MediaType
import qualified Network.HTTP.Media.Language.Tests as Language
------------------------------------------------------------------------------
tests :: IO [Test]
tests = return
[ testGroup "MediaType" MediaType.tests
, testGroup "Accept" Accept.tests
, testGroup "Media" Media.tests
, testGroup "Language" Language.tests
]