Make test compile and pass on windows

IntersectMBO · Feb 8, 2023 · 6865cb7 · 6865cb7
1 parent 00b1b67
commit 6865cb7
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 2 deletions.
diff --git a/cardano-cli/test/Test/Cli/Pipes.hs b/cardano-cli/test/Test/Cli/Pipes.hs
@@ -1,12 +1,17 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Test.Cli.Pipes
   ( tests
   ) where
 
-import           Prelude
+#if !defined(mingw32_HOST_OS)
+#define UNIX
+#endif
 
+import           Prelude
+#ifdef UNIX
 import           Control.Monad.IO.Class (liftIO)
 import qualified Data.ByteString.Char8 as BSC
 import qualified Data.ByteString.Lazy as LBS
@@ -21,7 +26,13 @@ import qualified Hedgehog
 import qualified Hedgehog.Extras.Test.Base as H
 import           Hedgehog.Internal.Property (failWith)
 
+#else
+
+import           Hedgehog (Property, discover, property, success)
 
+#endif
+
+#ifdef UNIX
 prop_readFromPipe :: Property
 prop_readFromPipe =
   H.propertyOnce . H.moduleWorkspace "tmp" $ \_ -> do
@@ -66,6 +77,11 @@ withPipe contents = do
   closeFd readEnd
   pure readContents
 
+#else
+prop_readFromPipe :: Property
+prop_readFromPipe = property success
+#endif
+
 -- -----------------------------------------------------------------------------
 
 tests :: IO Bool

diff --git a/cardano-cli/test/cardano-cli-test.hs b/cardano-cli/test/cardano-cli-test.hs
@@ -15,6 +15,8 @@ import qualified Test.Cli.Pipes
 import qualified Test.Cli.Shelley.Run.Query
 import qualified Test.Config.Mainnet
 
+import           Hedgehog.Extras.Stock.OS (isWin32)
+
 main :: IO ()
 main =
   defaultMain
@@ -23,11 +25,17 @@ main =
     , Test.Cli.ITN.tests
     , Test.Cli.JSON.tests
     , Test.Cli.MultiAssetParsing.tests
-    , Test.Cli.Pipes.tests
+    , ignoreOnWindows Test.Cli.Pipes.tests
     , Test.Cli.Pioneers.Exercise1.tests
     , Test.Cli.Pioneers.Exercise2.tests
     , Test.Cli.Pioneers.Exercise3.tests
     , Test.Cli.Pioneers.Exercise4.tests
     , Test.Cli.Shelley.Run.Query.tests
     , Test.Config.Mainnet.tests
     ]
+
+ignoreOnWindows :: IO Bool -> IO Bool
+ignoreOnWindows test =
+  if isWin32
+  then return True
+  else test