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

fsck behavior varies in direct mode when the file is modified

Browse source
This commit is contained in:
Joey Hess 2013-05-17 15:20:21 -04:00
parent a5dc269cd7
commit ba0c165704
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Test.hs
View file

@ -455,7 +455,10 @@ test_fsck env = "git-annex fsck" ~: TestList [basicfsck, barefsck, withlocaluntr
git_annex env "get" [f] @? "get of file failed" git_annex env "get" [f] @? "get of file failed"
Utility.FileMode.allowWrite f Utility.FileMode.allowWrite f
writeFile f (changedcontent f) writeFile f (changedcontent f)
not <$> git_annex env "fsck" [] @? "fsck failed to fail with corrupted file content" ifM (annexeval Config.isDirect)
( git_annex env "fsck" [] @? "fsck failed in direct mode with changed file content"
, not <$> git_annex env "fsck" [] @? "fsck failed to fail with corrupted file content"
)
git_annex env "fsck" [] @? "fsck unexpectedly failed again; previous one did not fix problem with " ++ f git_annex env "fsck" [] @? "fsck unexpectedly failed again; previous one did not fix problem with " ++ f
fsck_should_fail m = do fsck_should_fail m = do
not <$> git_annex env "fsck" [] @? "fsck failed to fail with " ++ m not <$> git_annex env "fsck" [] @? "fsck failed to fail with " ++ m