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

can't test gpg on Windows yet

Browse source
This commit is contained in:
Joey Hess 2013-05-17 16:49:34 -04:00
parent b26e20fa59
commit 7f6a82df67
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Test.hs
View file

@ -731,6 +731,7 @@ test_bup_remote env = "git-annex bup remote" ~: intmpclonerepo env $ when Build.
-- gpg is not a build dependency, so only test when it's available -- gpg is not a build dependency, so only test when it's available
test_crypto :: TestEnv -> Test test_crypto :: TestEnv -> Test
test_crypto env = "git-annex crypto" ~: intmpclonerepo env $ when Build.SysConfig.gpg $ do test_crypto env = "git-annex crypto" ~: intmpclonerepo env $ when Build.SysConfig.gpg $ do
#ifndef __WINDOWS__
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"
@ -755,6 +756,9 @@ test_crypto env = "git-annex crypto" ~: intmpclonerepo env $ when Build.SysConfi
annexed_present annexedfile annexed_present annexedfile
not <$> git_annex env "drop" [annexedfile, "--numcopies=2"] @? "drop failed to fail" not <$> git_annex env "drop" [annexedfile, "--numcopies=2"] @? "drop failed to fail"
annexed_present annexedfile annexed_present annexedfile
#else
print "gpg testing not implemented on Windows"
#endif
-- This is equivilant to running git-annex, but it's all run in-process -- This is equivilant to running git-annex, but it's all run in-process
-- (when the OS allows) so test coverage collection works. -- (when the OS allows) so test coverage collection works.