LocalStackSpec.hs

{- HLINT ignore "Use let" -}

module HaskellWorks.Polysemy.TestContainers.LocalStackSpec
  ( tasty_local_stack,
  ) where

import           Prelude

import           HaskellWorks.TestContainers.LocalStack
import           Test.Polysemy.Env
import qualified Test.Tasty                                as Tasty
import qualified Test.Tasty.Hedgehog                       as H

import qualified Amazonka.S3                               as AWS
import           HaskellWorks.Polysemy.Amazonka
import           HaskellWorks.Polysemy.Amazonka.LocalStack
import           HaskellWorks.Polysemy.Hedgehog
import           HaskellWorks.Prelude
import           Polysemy
import qualified System.Info                               as OS
import qualified TestContainers.Tasty                      as TC

{- HLINT ignore "Use camelCase" -}

isWindows :: Bool
isWindows = OS.os == "mingw32"

tasty_local_stack :: Tasty.TestTree
tasty_local_stack =
  if isWindows
    then Tasty.testGroup "LocalStackSpec skipped on Windows" []
    else
      TC.withContainers (setupContainers' "localstack/localstack-pro:3.7.2") $ \getContainer ->
        H.testProperty "Local stack test" $ propertyOnce $ runLocalTestEnv getContainer $ do
          container <- embed getContainer
          ep <- getLocalStackEndpoint container
          jotYamlM_ $ inspectContainer container
          jotShow_ ep
          listBucketsReq <- pure AWS.newListBuckets

          listBucketResp <- sendAws listBucketsReq
            & jotShowDataLog @AwsLogEntry
            & trapFail

          jotShow_ listBucketResp