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

reorder another test

Browse source 
continuing to try to narrow down cause of failure on windows
This commit is contained in:
Joey Hess 2021-04-22 10:03:35 -04:00
parent 7b465515e6
commit 3e63f00f63
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/TestRemote.hs
View file

@ -247,10 +247,6 @@ test runannex mkr mkk =
, check "storeKey when already present" $ \r k ->
whenwritable r $ runBool (store r k)
, check ("present " ++ show True) $ \r k -> present r k True
, check "retrieveKeyFile" $ \r k -> do
lockContentForRemoval k noop removeAnnex
get r k
, check "fsck downloaded object" fsck
, check "retrieveKeyFile resume from 0" $ \r k -> do
tmp <- fromRawFilePath <$> prepTmp k
liftIO $ writeFile tmp ""
@ -274,6 +270,10 @@ test runannex mkr mkk =
lockContentForRemoval k noop removeAnnex
get r k
, check "fsck downloaded object" fsck
, check "retrieveKeyFile" $ \r k -> do
lockContentForRemoval k noop removeAnnex
get r k
, check "fsck downloaded object" fsck
, check "removeKey when present" $ \r k ->
whenwritable r $ runBool (remove r k)
, check ("present " ++ show False) $ \r k ->