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

I thought that reversion a migration might fail. It didn't. :)

Browse source
This commit is contained in:
Joey Hess 2011-01-11 23:02:21 -04:00
parent e18a4d566b
commit 611018e4bd
1 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
test.hs
View file

@ -33,6 +33,7 @@ import qualified UUID
import qualified Remotes import qualified Remotes
import qualified Core import qualified Core
import qualified Backend.SHA1 import qualified Backend.SHA1
import qualified Backend.WORM
main :: IO () main :: IO ()
main = do main = do
@ -327,18 +328,34 @@ test_migrate = "git-annex migrate" ~: TestList [t False, t True]
annexed_present sha1annexedfile annexed_present sha1annexedfile
if usegitattributes if usegitattributes
then do then do
writeFile ".gitattributes" "* annex.backend=SHA1" writeFile ".gitattributes" $ "* annex.backend=SHA1"
git_annex "migrate" ["-q", sha1annexedfile] @? "migrate to same backend failed" git_annex "migrate" ["-q", sha1annexedfile]
git_annex "migrate" ["-q", annexedfile] @? "migrate to different backend failed" @? "migrate sha1annexedfile failed"
git_annex "migrate" ["-q", annexedfile]
@? "migrate annexedfile failed"
else do else do
git_annex "migrate" [sha1annexedfile, "--backend=SHA1"] @? "migrate to same backend failed" git_annex "migrate" ["-q", sha1annexedfile, "--backend", "SHA1"]
git_annex "migrate" [annexedfile, "--backend=SHA1"] @? "migrate to different backend failed" @? "migrate sha1annexedfile failed"
git_annex "migrate" ["-q", annexedfile, "--backend", "SHA1"]
@? "migrate annexedfile failed"
annexed_present annexedfile annexed_present annexedfile
annexed_present sha1annexedfile annexed_present sha1annexedfile
backend annexedfile Backend.SHA1.backend checkbackend annexedfile Backend.SHA1.backend
backend sha1annexedfile Backend.SHA1.backend checkbackend sha1annexedfile Backend.SHA1.backend
-- check that reversing a migration works
writeFile ".gitattributes" $ "* annex.backend=WORM"
git_annex "migrate" ["-q", sha1annexedfile]
@? "migrate sha1annexedfile failed"
git_annex "migrate" ["-q", annexedfile]
@? "migrate annexedfile failed"
annexed_present annexedfile
annexed_present sha1annexedfile
checkbackend annexedfile Backend.WORM.backend
checkbackend sha1annexedfile Backend.WORM.backend
where where
backend file expected = do checkbackend file expected = do
r <- annexeval $ Backend.lookupFile file r <- annexeval $ Backend.lookupFile file
let b = snd $ fromJust r let b = snd $ fromJust r
assertEqual ("backend for " ++ file) expected b assertEqual ("backend for " ++ file) expected b