nakadi-client-0.3.0.0: tests/Tests.hs

import           ClassyPrelude

import           Control.Lens
import           Network.HTTP.Client
import           Network.Nakadi
import           Network.Nakadi.EventTypes.Test
import           Network.Nakadi.Registry.Test
import           Network.Nakadi.Subscriptions.Test
import           System.Environment
import           Test.Tasty

createConfig :: IO Config
createConfig = do
  nakadiEndpoint <- fromMaybe (error "TEST_NAKADI_ENDPOINT not set") <$>
                    lookupEnv "TEST_NAKADI_ENDPOINT"
  request <- parseRequest nakadiEndpoint
  newConfig Nothing request

main :: IO ()
main = do
  conf <- createConfig
  defaultMain (tests conf)

tests :: Config -> TestTree
tests conf = testGroup "Test Suite"
  [ testEventTypes conf
  , testRegistry conf
  , testSubscriptions conf
  ]