summaryrefslogtreecommitdiff
path: root/Test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-07 15:16:36 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-07 15:16:36 -0400
commit003843973f034d90b1033c2408f3a36f0107769f (patch)
treeacf44e7bb89394274bb944d81bb53e03d14ca873 /Test.hs
parentde92739546ba6fd82963e9932d622b891f8ff096 (diff)
fix broken test
Diffstat (limited to 'Test.hs')
-rw-r--r--Test.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/Test.hs b/Test.hs
index 9f7c7e328..3f0abb5c7 100644
--- a/Test.hs
+++ b/Test.hs
@@ -854,16 +854,9 @@ test_unused = intmpclonerepoInDirect $ do
writeFile f "unlockedcontent2"
checkunused [] "with unlocked file after modification"
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
-- and the other is in the work tree
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
checkunused expectedkeys desc = do
git_annex "unused" [] @? "unused failed"