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

regression test for fd55563b02

Browse source
This commit is contained in:
Joey Hess 2015-01-02 13:59:25 -04:00
parent fd55563b02
commit e26e26fb32
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Test.hs
View file

@ -450,6 +450,12 @@ test_lock = intmpclonerepoInDirect $ do
not <$> git_annex "unlock" [annexedfile] @? "unlock failed to fail with not present file" not <$> git_annex "unlock" [annexedfile] @? "unlock failed to fail with not present file"
annexed_notpresent annexedfile annexed_notpresent annexedfile
-- regression test: unlock of newly added, not committed file
-- should fail
writeFile "newfile" "foo"
git_annex "add" ["newfile"] @? "add new file failed"
not <$> git_annex "unlock" ["newfile"] @? "unlock failed to fail on newly added, never committed file"
git_annex "get" [annexedfile] @? "get of file failed" git_annex "get" [annexedfile] @? "get of file failed"
annexed_present annexedfile annexed_present annexedfile
git_annex "unlock" [annexedfile] @? "unlock failed" git_annex "unlock" [annexedfile] @? "unlock failed"