From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 16 Dec 2015 17:14:18 +0000 (-0400)
Subject: pass --version to init when needed
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~320^2~184^2~32
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1e016611de80adcaed97af8c1dd2e9667de29b99;p=git-annex.git

pass --version to init when needed
---

diff --git a/Test.hs b/Test.hs
index 5207385b52..5fbadd1d5b 100644
--- a/Test.hs
+++ b/Test.hs
@@ -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"