PartialDownsweep: Add test for import errors

2 files changed, 14 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs
index fb91fb6c1f..335963be4e 100644
--- a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs
+++ b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.hs
@@ -8,6 +8,7 @@ import GhcMake
 import DynFlags
 import Outputable
 import Exception (ExceptionMonad, ghandle)
+import Bag
 
 import Control.Monad
 import Control.Monad.IO.Class (liftIO)
@@ -134,6 +135,17 @@ main = do
          sort (map (moduleNameString . moduleName . ms_mod) mss) == ["A", "C"]
        )
 
+    go "Import error"
+        [ [ "module A where"
+          , "import B"
+          , "import DoesNotExist_FooBarBaz"
+          ]
+        , [ "module B where"
+          ]
+        ]
+       (\mss -> return $
+           sort (map (moduleNameString . moduleName . ms_mod) mss) == ["A", "B"]
+       )
 
   errored <- readIORef any_failed
   when errored $ exitFailure
@@ -154,6 +166,7 @@ go label mods cnd =
     hsc_env <- getSession
     emss <- liftIO $ downsweep hsc_env [] [] False
     -- liftIO $ hPutStrLn stderr $ showSDocUnsafe $ ppr $ rights emss
+    -- liftIO $ hPrint stderr $ bagToList $ unionManyBags $ lefts emss
 
     it label $ cnd (rights emss)
 
diff --git a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.stderr b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.stderr
index 9e5f6d83dc..14c1b6c19a 100644
--- a/testsuite/tests/ghc-api/downsweep/PartialDownsweep.stderr
+++ b/testsuite/tests/ghc-api/downsweep/PartialDownsweep.stderr
@@ -13,3 +13,4 @@ B.hs:2:0: error:
      error: #elif without #if
      #elif <- cpp error here
      
+== Import error