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

more

Browse source
This commit is contained in:
Joey Hess 2011-01-07 14:08:43 -04:00
parent f3472d3a5d
commit a14c881f02
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test.hs
View file

@ -214,12 +214,17 @@ test_edit = "git-annex edit/commit" ~: intmpclonerepo $ do
test_fix :: Test test_fix :: Test
test_fix = "git-annex fix" ~: intmpclonerepo $ do test_fix = "git-annex fix" ~: intmpclonerepo $ do
annexed_notpresent annexedfile
git_annex "fix" ["-q", annexedfile] @? "fix of not present failed"
annexed_notpresent annexedfile
git_annex "get" ["-q", annexedfile] @? "get of file failed" git_annex "get" ["-q", annexedfile] @? "get of file failed"
annexed_present annexedfile annexed_present annexedfile
git_annex "fix" ["-q", annexedfile] @? "fix of present file failed"
annexed_present annexedfile
createDirectory subdir createDirectory subdir
Utility.boolSystem "git" ["mv", annexedfile, subdir] Utility.boolSystem "git" ["mv", annexedfile, subdir]
@? "git mv failed" @? "git mv failed"
git_annex "fix" ["-q", newfile] @? "fix failed" git_annex "fix" ["-q", newfile] @? "fix of moved file failed"
runchecks [checklink, checkunwritable] newfile runchecks [checklink, checkunwritable] newfile
c <- readFile newfile c <- readFile newfile
assertEqual ("content of moved file") c (content annexedfile) assertEqual ("content of moved file") c (content annexedfile)