nakadi-client-0.5.0.0: tests/Network/Nakadi/Registry/Test.hs

{-# LANGUAGE DeriveAnyClass        #-}
{-# LANGUAGE DeriveGeneric         #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts      #-}
{-# LANGUAGE RecordWildCards       #-}
{-# LANGUAGE ScopedTypeVariables   #-}
{-# LANGUAGE StandaloneDeriving    #-}

module Network.Nakadi.Registry.Test where

import           ClassyPrelude

import           Network.Nakadi
import           Network.Nakadi.Tests.Common
import           Test.Tasty
import           Test.Tasty.HUnit

testRegistry :: Config App -> TestTree
testRegistry conf = testGroup "Registry"
  [ testCase "PartitionStrategies" (testPartitionStrategies conf)
  ]

testPartitionStrategies :: Config App -> Assertion
testPartitionStrategies conf = runApp . runNakadiT conf $ do
  void $ registryPartitionStrategies