cabal-testsuite/PackageTests/Init/init-interactive-empty-folder.test.hs

   1 import Test.Cabal.Prelude
   2 import System.Directory
   3
   4 main = cabalTest $ do
   5   tmpDir <- testCurrentDir <$> getTestEnv
   6   liftIO $ createDirectory (tmpDir </> "empty")
   7   withDirectory (tmpDir </> "empty") $ do
   8     res <- cabalWithStdin "init"
   9                           ["-i"]
  10                           (replicate 20 '\n') -- Default all the way down.
  11     assertOutputDoesNotContain "backups will be created" res
  12