diff --git a/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs b/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs
index e1a7125067b..e25216022a2 100644
--- a/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs
+++ b/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs
@@ -1,7 +1,7 @@
 import Test.Cabal.Prelude
 import qualified System.Process as Process
 import Control.Concurrent (threadDelay)
-import System.Directory (removeFile, canonicalizePath)
+import System.Directory (removeFile, canonicalizePath, listDirectory)
 import Control.Exception (catch, throwIO)
 import System.IO.Error (isDoesNotExistError)
 import qualified Data.Time.Clock as Time
@@ -14,6 +14,7 @@ main = do
     res <- cabalWithStdin "v2-build" ["all"] ""
     rel_exe_path <- withPlan $ planExePath "setup-test" "cabal-aaaa"
     exe_path <- liftIO $ canonicalizePath rel_exe_path
+    liftIO $ listDirectory (takeDirectory exe_path) >>= print
     env <- getTestEnv
     path <- liftIO $ getEnv "PATH"
     let newpath = takeDirectory exe_path ++ ":" ++ path