Skip testcontainer tests on Windows

haskell-works · Oct 21, 2024 · d941ed4 · d941ed4
1 parent 3c8ddda
commit d941ed4
Showing 1 changed file with 20 additions and 13 deletions.
diff --git a/test/HaskellWorks/Polysemy/TestContainers/LocalStackSpec.hs b/test/HaskellWorks/Polysemy/TestContainers/LocalStackSpec.hs
@@ -20,22 +20,29 @@ 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 =
-  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
+  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