summaryrefslogtreecommitdiff
path: root/Test.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Test.hs')
-rw-r--r--Test.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/Test.hs b/Test.hs
index b8d0f89a6..684da0d75 100644
--- a/Test.hs
+++ b/Test.hs
@@ -450,6 +450,12 @@ test_lock = intmpclonerepoInDirect $ do
not <$> git_annex "unlock" [annexedfile] @? "unlock failed to fail with not present file"
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"
annexed_present annexedfile
git_annex "unlock" [annexedfile] @? "unlock failed"