diff --git a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs
index c3cf82c2b1b..618e13d7c7a 100644
--- a/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs
+++ b/cabal-testsuite/PackageTests/SDist/ListSources/list-sources.test.hs
@@ -1,9 +1,11 @@
+import Control.Monad.IO.Class
 import System.FilePath (normalise)
 import Test.Cabal.Prelude
 main = setupTest $ do
   tmpdir <- fmap testTmpDir getTestEnv
   let fn = tmpdir </> "sources"
   setup "sdist" ["--list-sources=" ++ fn]
+  liftIO $ putStrLn =<< readFile 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"