diff options
author | 2012-06-05 19:54:44 -0400 | |
---|---|---|
committer | 2012-06-05 19:54:44 -0400 | |
commit | f8d422fe24e425676a928959a2489f277c3026d3 (patch) | |
tree | 58d55b0a11f7c0e961becf97c0332b757b8e2476 | |
parent | d3cee987caf20b309334b37bd1b89e8b9115cf0a (diff) |
update test suite
-rw-r--r-- | test.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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" |