Fix tests

purerl · Dec 6, 2018 · 18a3f3c · 18a3f3c
1 parent 4608bb7
commit 18a3f3c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/tests/TestCompiler.hs b/tests/TestCompiler.hs
@@ -153,7 +153,7 @@ inferForeignModules
   :: MonadIO m
   => [(FilePath, P.Module)]
   -> m (M.Map P.ModuleName FilePath)
-inferForeignModules = P.inferForeignModules . fromList
+inferForeignModules = P.inferForeignModules' "erl" . fromList
   where
     fromList :: [(FilePath, P.Module)] -> M.Map P.ModuleName (Either P.RebuildPolicy FilePath)
     fromList = M.fromList . map ((P.getModuleName *** Right) . swap)

diff --git a/tests/TestPsci/TestEnv.hs b/tests/TestPsci/TestEnv.hs
@@ -19,6 +19,7 @@ import           System.FilePath ((</>), pathSeparator)
 import qualified System.FilePath.Glob as Glob
 import           System.Process (readProcessWithExitCode)
 import           Test.Hspec (shouldBe, Expectation)
+import qualified Data.Set as Set
 
 -- | A monad transformer for handle PSCi actions in tests
 type TestPSCi a = RWST PSCiConfig () PSCiState IO a
@@ -38,7 +39,7 @@ initTestPSCiEnv = do
       print err >> exitFailure
     Right modules -> do
       -- Make modules
-      makeResultOrError <- runMake P.defaultOptions . make $ modules
+      makeResultOrError <- runMake P.defaultOptions . (make $ Set.singleton P.Erl) $ modules
       case makeResultOrError of
         Left errs -> putStrLn (P.prettyPrintMultipleErrors P.defaultPPEOptions errs) >> exitFailure
         Right (externs, _) ->