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

add a test case for switching to direct mode and back to indirect

Browse source
This commit is contained in:
Joey Hess 2015-02-09 13:41:29 -04:00
parent 103565b2a2
commit d554362d0b
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Test.hs
View file

@ -191,6 +191,7 @@ unitTests note = testGroup ("Unit Tests " ++ note)
, testCase "edit (pre-commit)" test_edit_precommit
, testCase "partial commit" test_partial_commit
, testCase "fix" test_fix
, testCase "direct" test_direct
, testCase "trust" test_trust
, testCase "fsck (basics)" test_fsck_basic
, testCase "fsck (bare)" test_fsck_bare
@ -530,6 +531,14 @@ test_fix = intmpclonerepoInDirect $ do
subdir = "s"
newfile = subdir ++ "/" ++ annexedfile
test_direct :: Assertion
test_direct = intmpclonerepoInDirect $ do
git_annex "get" [annexedfile] @? "get of file failed"
annexed_present annexedfile
git_annex "direct" [] @? "switch to direct mode failed"
annexed_present annexedfile
git_annex "indirect" [] @? "switch to indirect mode failed"
test_trust :: Assertion
test_trust = intmpclonerepo $ do
git_annex "trust" [repo] @? "trust failed"