Rudimentary test for sdist --list-sources.

quasicomputational · quasicomputational · commit 0e7ad1d12c87 · 2018-04-29T16:07:43.000+01:00
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"

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+# cabal sdist`
	`2`	`+List of package sources written to file '<TMPDIR>/sources'`
	`3`	`+List of package sources written to file '<TMPDIR>/sources'`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+# Setup sdist`
	`2`	`+List of package sources written to file '<TMPDIR>/sources'`