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

added export remote tests

Browse source
This commit is contained in:
Joey Hess 2020-04-30 13:13:08 -04:00
parent 735d2e90df
commit fc1ae62ef1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Test.hs
View file

@ -216,6 +216,7 @@ testRemote = withResource newEmptyTMVarIO (const noop) $ \getv ->
where
reponame = "test repo"
remotename = "dir"
remotetype =" directory"
basesz = 1024 * 1024
keysizes = Command.TestRemote.keySizes basesz False
prep getv = do
@ -227,7 +228,7 @@ testRemote = withResource newEmptyTMVarIO (const noop) $ \getv ->
createDirectory "remotedir"
git_annex "initremote"
[ remotename
, "type=directory"
, "type=" ++ remotetype
, "directory=remotedir"
, "encryption=none"
, "--quiet"
@ -244,9 +245,9 @@ testRemote = withResource newEmptyTMVarIO (const noop) $ \getv ->
go getv = Command.TestRemote.mkTestTrees runannex mkrs mkunavailr mkexportr mkks
where
runannex = inmainrepo . annexeval
mkrs = [descas "remote" (fst <$> v)]
mkrs = [descas (remotetype ++ " remote") (fst <$> v)]
mkunavailr = fst . snd <$> v
mkexportr = Nothing -- fst . snd . snd <$> v
mkexportr = fst . snd . snd <$> v
mkks = map (\(sz, n) -> desckeysize sz (getk n))
(zip keysizes [0..])
getk n = fmap (!! n) (snd . snd . snd <$> v)