setup-no-markup.test.hs

import Distribution.Simple.Hpc
import Test.Cabal.Prelude

-- Ensures that even if a .tix file happens to be left around
-- markup isn't generated.
main = setupAndCabalTest $ do
  dist_dir <- fmap testDistDir getTestEnv
  let tixFile = tixFilePath dist_dir Vanilla "test-Short"
  withEnv [("HPCTIXFILE", Just tixFile)] $ do
    setup_build
      [ "--enable-tests"
      , "--ghc-option=-fhpc"
      , "--ghc-option=-hpcdir"
      , "--ghc-option=" ++ dist_dir ++ "/hpc/vanilla"
      ]
    setup "test" ["test-Short", "--show-details=direct"]
  shouldNotExist $ htmlDir dist_dir Vanilla </> "hpc_index.html"