From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 21 Jul 2025 16:51:57 +0000 (-0400)
Subject: make --keep-failures show full path to test repo
X-Git-Tag: archive/raspbian/10.20251029-1+rpi1~1^2~7^2~5
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=65a1cf54ce1b652e78e4fd2e29bdbdb4ae7e819e;p=git-annex.git

make --keep-failures show full path to test repo

Otherwise, had to guess which of several subdirectories was the right
one.
---

diff --git a/Test/Framework.hs b/Test/Framework.hs
index 35a29d6bee..7ebf3f3f25 100644
--- a/Test/Framework.hs
+++ b/Test/Framework.hs
@@ -196,8 +196,10 @@ withtmpclonerepo' cfg a = do
 	case r of
 		Right () -> return ()
 		Left e -> do
-			whenM (keepFailuresOption . testOptions <$> getTestMode) $
-				putStrLn $ "** Preserving repo for failure analysis in " ++ clone
+			whenM (keepFailuresOption . testOptions <$> getTestMode) $ do
+				topdir <- Utility.Env.getEnvDefault "TOPDIR" ""
+				putStrLn $ "** Preserving repo for failure analysis in " ++ 
+					fromOsPath (toOsPath topdir </> toOsPath clone)
 			throwM e
 
 disconnectOrigin :: Assertion