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

update for initremote changes

Browse source
This commit is contained in:
Joey Hess 2013-05-01 02:23:52 -04:00
parent 0f06eb5ecf
commit 2acd981b6e
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Test.hs
View file

@ -730,15 +730,17 @@ test_crypto = "git-annex crypto" ~: intmpclonerepo $ when Build.SysConfig.gpg $
Utility.Gpg.testTestHarness @? "test harness self-test failed" Utility.Gpg.testTestHarness @? "test harness self-test failed"
Utility.Gpg.testHarness $ do Utility.Gpg.testHarness $ do
createDirectory "dir" createDirectory "dir"
let initremote = git_annex "initremote" let a cmd = git_annex cmd
[ "foo" [ "foo"
, "type=directory" , "type=directory"
, "encryption=" ++ Utility.Gpg.testKeyId , "encryption=" ++ Utility.Gpg.testKeyId
, "directory=dir" , "directory=dir"
, "highRandomQuality=false" , "highRandomQuality=false"
] ]
initremote @? "initremote failed" a "initremote" @? "initremote failed"
initremote @? "initremote failed when run twice in a row" not <$> a "initremote" @? "initremote failed to fail when run twice in a row"
a "enableremote" @? "enableremote failed"
a "enableremote" @? "enableremote failed when run twice in a row"
git_annex "get" [annexedfile] @? "get of file failed" git_annex "get" [annexedfile] @? "get of file failed"
annexed_present annexedfile annexed_present annexedfile
git_annex "copy" [annexedfile, "--to", "foo"] @? "copy --to encrypted remote failed" git_annex "copy" [annexedfile, "--to", "foo"] @? "copy --to encrypted remote failed"