1 import Test
.Cabal
.Prelude
2 import System
.Directory
4 cwd
<- fmap testCurrentDir getTestEnv
5 liftIO
$ createDirectoryIfMissing
False $ cwd
</> "archives"
6 cabal
"v2-sdist" ["all", "--output-dir", "archives"]
7 shouldNotExist
$ cwd
</> "dist-newstyle/sdist/a-0.1.tar.gz"
8 shouldNotExist
$ cwd
</> "dist-newstyle/sdist/b-0.1.tar.gz"
9 shouldExist
$ cwd
</> "archives/a-0.1.tar.gz"
10 shouldExist
$ cwd
</> "archives/b-0.1.tar.gz"