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

fix broken test

Browse source
This commit is contained in:
Joey Hess 2016-01-07 15:16:36 -04:00
parent 3b960d1422
commit 98fb475726
Failed to extract signature
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Test.hs
View file

@ -854,16 +854,9 @@ test_unused = intmpclonerepoInDirect $ do
writeFile f "unlockedcontent2" writeFile f "unlockedcontent2"
checkunused [] "with unlocked file after modification" checkunused [] "with unlocked file after modification"
not <$> boolSystem "git" [Param "diff", Param "--quiet", File f] @? "git diff did not show changes to unlocked file" not <$> boolSystem "git" [Param "diff", Param "--quiet", File f] @? "git diff did not show changes to unlocked file"
ver2key <- getKey backendSHA256E "unlockedfile"
-- still nothing unused because one version is in the index -- still nothing unused because one version is in the index
-- and the other is in the work tree -- and the other is in the work tree
checkunused [] "with unlocked file after git diff" checkunused [] "with unlocked file after git diff"
writeFile f "unlockedcontent3"
-- original version is still in index; version 2 is unused
-- now, and version 3 is in work tree
checkunused [ver2key] "with unlocked file after second modification"
not <$> boolSystem "git" [Param "diff", Param "--quiet", File f] @? "git diff did not show changes to unlocked file"
checkunused [ver2key] "with unlocked file after second git diff"
where where
checkunused expectedkeys desc = do checkunused expectedkeys desc = do
git_annex "unused" [] @? "unused failed" git_annex "unused" [] @? "unused failed"