mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source 
Otherwise, had to guess which of several subdirectories was the right
one.
This commit is contained in:
Joey Hess 2025-07-21 12:51:57 -04:00
parent f4fdab0ffa
commit 65a1cf54ce
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Test/Framework.hs
View file

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