cabal-testsuite/PackageTests/Recompilation/GHC24926/cabal.test.hs

   1 import Test.Cabal.Prelude
   2
   3 -- See ghc#24926
   4 main = cabalTest $ do
   5   recordMode DoNotRecord $ do
   6
   7     root <- testTmpDir <$> getTestEnv
   8
   9     writeInternalOrig root
  10     cabal "test" []
  11
  12     liftIO $ writeFile (root ++ "/src/Internal.hs")
  13       " module Internal where;\
  14
  15       \ data Unused = Unused;"
  16     fails $ cabal "test" [] -- broken module on purpose
  17
  18     writeInternalOrig root
  19     out <- cabal' "test" [] -- shouldn't fail!
  20
  21     assertOutputDoesNotContain
  22       "<no location info>: error:" out
  23     assertOutputDoesNotContain
  24       "Cannot continue after interface file error" out
  25
  26   where
  27
  28     writeInternalOrig r = liftIO $ do
  29       writeFile (r ++ "/src/Internal.hs")
  30         " module Internal where;\
  31
  32         \ data Unused = Unused;\
  33
  34         \ b :: IO (); \
  35         \ b = pure ();"
  36