diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-07 14:08:43 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-07 14:08:43 -0400 |
commit | a14c881f023a55aa325db86fea3a5af1fce3d852 (patch) | |
tree | f420cd4c8b0e417675cdd72ccb078d85d372fe5a /test.hs | |
parent | f3472d3a5d71ffedc67ed212b87308052bb4c042 (diff) |
more
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -214,12 +214,17 @@ test_edit = "git-annex edit/commit" ~: intmpclonerepo $ do test_fix :: Test 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" annexed_present annexedfile + git_annex "fix" ["-q", annexedfile] @? "fix of present file failed" + annexed_present annexedfile createDirectory subdir Utility.boolSystem "git" ["mv", annexedfile, subdir] @? "git mv failed" - git_annex "fix" ["-q", newfile] @? "fix failed" + git_annex "fix" ["-q", newfile] @? "fix of moved file failed" runchecks [checklink, checkunwritable] newfile c <- readFile newfile assertEqual ("content of moved file") c (content annexedfile) |