summaryrefslogtreecommitdiff
path: root/test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-05 19:54:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-05 19:54:44 -0400
commitf8d422fe24e425676a928959a2489f277c3026d3 (patch)
tree58d55b0a11f7c0e961becf97c0332b757b8e2476 /test.hs
parentd3cee987caf20b309334b37bd1b89e8b9115cf0a (diff)
update test suite
Diffstat (limited to 'test.hs')
-rw-r--r--test.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/test.hs b/test.hs
index 9a0fce873..1a7c382c0 100644
--- a/test.hs
+++ b/test.hs
@@ -171,7 +171,8 @@ test_reinject :: Test
test_reinject = "git-annex reinject/fromkey" ~: TestCase $ intmpclonerepo $ do
git_annex "drop" ["--force", sha1annexedfile] @? "drop failed"
writeFile tmp $ content sha1annexedfile
- r <- annexeval $ Types.Backend.getKey backendSHA1 tmp
+ r <- annexeval $ Types.Backend.getKey backendSHA1 $
+ Types.Backend.KeySource { Types.Backend.keyFilename = tmp, Types.Backend.contentLocation = tmp }
let key = show $ fromJust r
git_annex "reinject" [tmp, sha1annexedfile] @? "reinject failed"
git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed"