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

fix

Browse source
This commit is contained in:
Joey Hess 2011-09-28 15:17:45 -04:00
parent ad245a6375
commit 5ae270001c
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test.hs
View file

@ -44,6 +44,7 @@ import qualified Types.Key
import qualified Config import qualified Config
import qualified Crypto import qualified Crypto
import qualified Utility.Path import qualified Utility.Path
import qualified Utility.FileMode
-- for quickcheck -- for quickcheck
instance Arbitrary Types.Key.Key where instance Arbitrary Types.Key.Key where
@ -389,7 +390,7 @@ test_fsck = "git-annex fsck" ~: TestList [basicfsck, withlocaluntrusted, withrem
corrupt f = do corrupt f = do
git_annex "get" ["-q", f] @? "get of file failed" git_annex "get" ["-q", f] @? "get of file failed"
Content.allowWrite f Utility.FileMode.allowWrite f
writeFile f (changedcontent f) writeFile f (changedcontent f)
r <- git_annex "fsck" ["-q"] r <- git_annex "fsck" ["-q"]
not r @? "fsck failed to fail with corrupted file content" not r @? "fsck failed to fail with corrupted file content"
@ -558,7 +559,7 @@ cleanup dir = do
-- removed via directory permissions; undo -- removed via directory permissions; undo
recurseDir SystemFS dir >>= recurseDir SystemFS dir >>=
filterM doesDirectoryExist >>= filterM doesDirectoryExist >>=
mapM_ Content.allowWrite mapM_ Utility.FileMode.allowWrite
removeDirectoryRecursive dir removeDirectoryRecursive dir
checklink :: FilePath -> Assertion checklink :: FilePath -> Assertion