nri-redis-0.4.1.1: test/Helpers.hs

{-# LANGUAGE OverloadedStrings #-}

module Helpers where

import qualified Conduit
import qualified Environment
import qualified Redis
import qualified Redis.Handler as Handler
import qualified Redis.Settings as Settings
import qualified Prelude

data TestHandlers = TestHandlers
  { autoExtendExpireHandler :: Redis.HandlerAutoExtendExpire,
    handler :: Redis.Handler,
    noNamespaceHandler :: Redis.Handler
  }

getHandlers :: Conduit.Acquire TestHandlers
getHandlers = do
  settings <- Conduit.liftIO (Environment.decode Settings.decoder)
  autoExtendExpireHandler <- Handler.handlerAutoExtendExpire "tests-auto-extend-expire" settings {Settings.defaultExpiry = Settings.ExpireKeysAfterSeconds 1}
  handler <- Handler.handler "tests" settings {Settings.defaultExpiry = Settings.NoDefaultExpiry}
  noNamespaceHandler <- Handler.handlerWithoutNamespace settings {Settings.defaultExpiry = Settings.NoDefaultExpiry}
  Prelude.pure TestHandlers {autoExtendExpireHandler, handler, noNamespaceHandler}

-- | Historical context:
-- Golden results are slightly different between GHC 9.2.x and 8.10.x due
-- to apparent differences in internal handling of stack frame source locations.
-- In particular, the end of a function call now does not extend to the end of
-- the line but instead to the end of the function name. E.g. for the following:
--
-- > foo
-- >   bar
-- >   baz
--
-- In GHC 8.10.x (and possibly GHC 9.0.x?) `srcLocEndLine` and `srcLocEndCol`
-- would correspond to the `z` at the end of `baz`.  Unfortunately, in GHC 9.2.x
-- it corresponds to the second `o` at the end of `foo`.
--
-- We keep this here in case similar is true in later versions of GHC.
goldenResultsDir :: Text
goldenResultsDir = "test/golden-results-9.8"