Rudimentary test for sdist --list-sources.

haskell · May 8, 2018 · 218c7bf · 218c7bf
1 parent 7388950
commit 218c7bf
Show file tree

Hide file tree

Showing 8 changed files with 30 additions and 0 deletions.
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/Main.hs b/cabal-testsuite/PackageTests/SDist/ListSources/Main.hs
@@ -0,0 +1 @@
+main = return ()
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/data/blah/a.dat b/cabal-testsuite/PackageTests/SDist/ListSources/data/blah/a.dat
@@ -0,0 +1 @@
+blah
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/extra-doc/blah/a.tex b/cabal-testsuite/PackageTests/SDist/ListSources/extra-doc/blah/a.tex
@@ -0,0 +1 @@
+blah
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/extra-src/blah/a.html b/cabal-testsuite/PackageTests/SDist/ListSources/extra-src/blah/a.html
@@ -0,0 +1 @@
+blah
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.cabal b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.cabal
@@ -0,0 +1,11 @@
+cabal-version: 2.2
+name: list-sources
+version: 0
+data-dir: data
+data-files: blah/*.dat
+extra-source-files: extra-src/blah/*.html
+extra-doc-files: extra-doc/blah/*.tex
+
+executable dummy
+  default-language: Haskell2010
+  main-is: Main.hs
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.cabal.out b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.cabal.out
@@ -0,0 +1,3 @@
+# cabal sdist
+List of package sources written to file '<TMPDIR>/sources'
+List of package sources written to file '<TMPDIR>/sources'
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.out b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.out
@@ -0,0 +1,2 @@
+# Setup sdist
+List of package sources written to file '<TMPDIR>/sources'
diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs
@@ -0,0 +1,10 @@
+import System.FilePath (normalise)
+import Test.Cabal.Prelude
+main = setupTest $ do
+  tmpdir <- fmap testTmpDir getTestEnv
+  let fn = tmpdir </> "sources"
+  setup "sdist" ["--list-sources=" ++ fn]
+  -- --list-sources outputs with slashes on posix and backslashes on Windows. 'normalise' converts our needle to the necessary format.
+  assertFileDoesContain fn $ normalise "data/blah/a.dat"
+  assertFileDoesContain fn $ normalise "extra-src/blah/a.html"
+  assertFileDoesContain fn $ normalise "extra-doc/blah/a.tex"