diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-16 13:14:18 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-16 13:14:18 -0400 |
commit | 747caa452a29a38bb8f02a0efaf47fb80a92bf6d (patch) | |
tree | fe11bd8ce1d1fce9ee2549c8f69d604ac2092dd7 /Test.hs | |
parent | 2032c01a8dd0d6fe36c312c9d9f7c6d79040eb5d (diff) |
pass --version to init when needed
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 14 |
1 files changed, 9 insertions, 5 deletions
@@ -243,7 +243,10 @@ unitTests note = testGroup ("Unit Tests " ++ note) -- this test case create the main repo test_init :: Assertion test_init = innewrepo $ do - git_annex "init" [reponame] @? "init failed" + ver <- annexVersion <$> getTestMode + if ver == Annex.Version.defaultVersion + then git_annex "init" [reponame] @? "init failed" + else git_annex "init" [reponame, "--version", ver] @? "init failed" setupTestMode where reponame = "test repo" @@ -1585,8 +1588,11 @@ clonerepo old new cfg = do ] boolSystem "git" cloneparams @? "git clone failed" configrepo new - indir new $ - git_annex "init" ["-q", new] @? "git annex init failed" + indir new $ do + ver <- annexVersion <$> getTestMode + if ver == Annex.Version.defaultVersion + then git_annex "init" ["-q", new] @? "git annex init failed" + else git_annex "init" ["-q", new, "--version", ver] @? "git annex init failed" unless (bareClone cfg) $ indir new $ setupTestMode @@ -1765,8 +1771,6 @@ getTestMode = Prelude.read <$> Utility.Env.getEnvDefault "TESTMODE" "" setupTestMode :: IO () setupTestMode = do testmode <- getTestMode - annexeval $ - Annex.Version.setVersion (annexVersion testmode) when (forceDirect testmode) $ git_annex "direct" ["-q"] @? "git annex direct failed" |