cabal-testsuite/PackageTests/NewBuild/CmdClean/Orphan/cabal.test.hs

   1 import Test.Cabal.Prelude
   2 import System.Directory (copyFile, removeFile)
   3
   4 main = cabalTest . void $ do
   5     env <- getTestEnv
   6     let td = testCurrentDir env
   7
   8     cabal' "v2-build" ["script.hs"]
   9     liftIO $ copyFile (td </> "script.hs") (td </> "script2.hs")
  10     cabal' "v2-build" ["script2.hs"]
  11     liftIO $ removeFile (td </> "script2.hs")
  12     cabal' "v2-clean" ["script.hs"]
  13
  14     cacheDir  <- getScriptCacheDirectory (td </> "script.hs")
  15     cacheDir2 <- getScriptCacheDirectory (td </> "script2.hs")
  16
  17     shouldDirectoryNotExist cacheDir
  18     shouldDirectoryNotExist cacheDir2