summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-07 14:08:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-07 14:08:43 -0400
commita14c881f023a55aa325db86fea3a5af1fce3d852 (patch)
treef420cd4c8b0e417675cdd72ccb078d85d372fe5a
parentf3472d3a5d71ffedc67ed212b87308052bb4c042 (diff)
more
-rw-r--r--test.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/test.hs b/test.hs
index e5563c514..852d1b30f 100644
--- a/test.hs
+++ b/test.hs
@@ -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)