1 import System
.FilePath (normalise
)
2 import Test
.Cabal
.Prelude
4 tmpdir
<- fmap testTmpDir getTestEnv
5 let fn
= tmpdir
</> "sources"
6 setup
"sdist" ["--list-sources=" ++ fn
]
7 -- --list-sources outputs with slashes on posix and backslashes on Windows. 'normalise' converts our needle to the necessary format.
8 assertFileDoesContain fn
$ normalise
"data/blah/a.dat"
9 assertFileDoesContain fn
$ normalise
"extra-src/blah/a.html"
10 assertFileDoesContain fn
$ normalise
"extra-doc/blah/a.tex"