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

test migrate; 75%

Browse source
This commit is contained in:
Joey Hess 2011-01-11 21:11:32 -04:00
parent b13039d62e
commit b557a2ccf4
2 changed files with 31 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
debian/changelog vendored
View file

@ -4,7 +4,7 @@ git-annex (0.18) UNRELEASED; urgency=low
after transferring the file to the remote repository. after transferring the file to the remote repository.
(Did not affect ssh remotes.) (Did not affect ssh remotes.)
* fsck: Fix bug in moving of corrupted files to .git/annex/bad/ * fsck: Fix bug in moving of corrupted files to .git/annex/bad/
* Test suite improvements. Current top-level test coverage: 72% * Test suite improvements. Current top-level test coverage: 75%
-- Joey Hess <joeyh@debian.org> Tue, 11 Jan 2011 16:05:25 -0400 -- Joey Hess <joeyh@debian.org> Tue, 11 Jan 2011 16:05:25 -0400

30
test.hs
View file

@ -73,6 +73,7 @@ toplevels = TestLabel "toplevel" $ TestList
, test_fix , test_fix
, test_trust , test_trust
, test_fsck , test_fsck
, test_migrate
] ]
test_init :: Test test_init :: Test
@ -313,6 +314,35 @@ test_fsck = "git-annex fsck" ~: intmpclonerepo $ do
not r @? "fsck failed to fail with corrupted file content" not r @? "fsck failed to fail with corrupted file content"
git_annex "fsck" ["-q"] @? "fsck unexpectedly failed again; previous one did not fix problem" git_annex "fsck" ["-q"] @? "fsck unexpectedly failed again; previous one did not fix problem"
test_migrate :: Test
test_migrate = "git-annex migrate" ~: TestList [t False, t True]
where t usegitattributes = TestCase $ intmpclonerepo $ do
annexed_notpresent annexedfile
annexed_notpresent sha1annexedfile
git_annex "migrate" ["-q", annexedfile] @? "migrate of not present failed"
git_annex "migrate" ["-q", sha1annexedfile] @? "migrate of not present failed"
git_annex "get" ["-q", annexedfile] @? "get of file failed"
git_annex "get" ["-q", sha1annexedfile] @? "get of file failed"
annexed_present annexedfile
annexed_present sha1annexedfile
if usegitattributes
then do
writeFile ".gitattributes" "* annex.backend=SHA1"
git_annex "migrate" [sha1annexedfile] @? "migrate to same backend failed"
git_annex "migrate" [annexedfile] @? "migrate to different backend failed"
else do
git_annex "migrate" [sha1annexedfile, "--backend=SHA1"] @? "migrate to same backend failed"
git_annex "migrate" [annexedfile, "--backend=SHA1"] @? "migrate to different backend failed"
annexed_present annexedfile
annexed_present sha1annexedfile
backend annexedfile Backend.SHA1.backend
backend sha1annexedfile Backend.SHA1.backend
where
backend file expected = do
r <- annexeval $ Backend.lookupFile file
let b = snd $ fromJust r
assertEqual ("backend for " ++ file) expected b
-- 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
-- so test coverage collection works. -- so test coverage collection works.
git_annex :: String -> [String] -> IO Bool git_annex :: String -> [String] -> IO Bool