@@ -23,6 +23,7 @@ import Control.Monad.Trans.Maybe
24import System.Process
24import System.Process
25import System.Directory
25import System.Directory
27findNodeProcess :: IO (Maybe String)
28findNodeProcess :: IO (Maybe String)
28findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names
29findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names
@@ -33,9 +34,12 @@ fetchSupportCode :: IO ()
33fetchSupportCode = do
34fetchSupportCode = do
34 node <- fromMaybe (error "cannot find node executable") <$> findNodeProcess
35 node <- fromMaybe (error "cannot find node executable") <$> findNodeProcess
35 setCurrentDirectory "tests/support"
36 setCurrentDirectory "tests/support"
37+ if System.Info.os == "mingw32"
38+ then callProcess "setup-win.cmd" []
36− callProcess "npm" ["install"]
40+ callProcess "npm" ["install"]
37− -- Sometimes we run as a root (e.g. in simple docker containers)
41+ -- Sometimes we run as a root (e.g. in simple docker containers)
38− -- And we are non-interactive: https://github.com/bower/bower/issues/1162
42+ -- And we are non-interactive: https://github.com/bower/bower/issues/1162
39− callProcess "node_modules/.bin/bower" ["--allow-root", "install", "--config.interactive=false"]
43+ callProcess "node_modules/.bin/bower" ["--allow-root", "install", "--config.interactive=false"]
40 callProcess node ["setup.js"]
44 callProcess node ["setup.js"]
41 setCurrentDirectory "../.."
45 setCurrentDirectory "../.."