summaryrefslogtreecommitdiff
path: root/test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-02-15 16:06:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-02-15 16:06:22 -0400
commitecd610e955e0cfa5c88535039f434ea2a299068c (patch)
tree4478996bc743bd75b5c36bbbed5b21a0b8c2fc7a /test.hs
parentd3a9ae31978538f7d43b70a8b99ebc9580a9ab62 (diff)
fixed test suite build after recent changes broke it
Diffstat (limited to 'test.hs')
-rw-r--r--test.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/test.hs b/test.hs
index 6270c5978..03c0c4e3a 100644
--- a/test.hs
+++ b/test.hs
@@ -75,8 +75,8 @@ instance Arbitrary Logs.Transfer.TransferInfo where
<*> arbitrary `suchThat` (/= Just "")
<*> arbitrary
-instance Arbitrary Annex.Content.Direct.Cache where
- arbitrary = Annex.Content.Direct.Cache
+instance Arbitrary Utility.InodeCache.InodeCache where
+ arbitrary = Utility.InodeCache.InodeCache
<$> arbitrary
<*> arbitrary
<*> arbitrary
@@ -209,7 +209,7 @@ 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 $
- Types.KeySource.KeySource { Types.KeySource.keyFilename = tmp, Types.KeySource.contentLocation = tmp }
+ Types.KeySource.KeySource { Types.KeySource.keyFilename = tmp, Types.KeySource.contentLocation = tmp, Types.KeySource.inodeCache = Nothing }
let key = Types.Key.key2file $ fromJust r
git_annex "reinject" [tmp, sha1annexedfile] @? "reinject failed"
git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed"