diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-29 17:48:25 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-29 17:48:25 -0400 |
commit | 7b917b36e2e564efe9aa5ae385a82d17889890c5 (patch) | |
tree | 8f091eb4d9c3221c2f72b4fed856b9f33f51bcf2 /Test.hs | |
parent | 10539c83e072686fe9e5fe95010aa434cb553c44 (diff) |
move check for if direct mode is supported to the right place
Need to run that check inside a annex repo.
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -123,7 +123,7 @@ tests = testGroup "Tests" $ properties : map (\(d, te) -> withTestMode te (unitTests d)) testmodes where testmodes = - -- [ ("v6", TestMode { forceDirect = False, annexVersion = "6" }) + --[ ("v6", TestMode { forceDirect = False, annexVersion = "6" }) [ ("v5", TestMode { forceDirect = False, annexVersion = "5" }) -- Windows will only use direct mode, so don't test twice. #ifndef mingw32_HOST_OS @@ -1082,9 +1082,8 @@ test_nonannexed_file_conflict_resolution :: Assertion test_nonannexed_file_conflict_resolution = do check True False check False False - whenM (annexeval Annex.Version.versionSupportsDirectMode) $ do - check True True - check False True + check True True + check False True where check inr1 switchdirect = withtmpclonerepo $ \r1 -> withtmpclonerepo $ \r2 -> @@ -1103,7 +1102,8 @@ test_nonannexed_file_conflict_resolution = do let l = if inr1 then [r1, r2] else [r2, r1] forM_ l $ \r -> indir r $ do when switchdirect $ - git_annex "direct" [] @? "failed switching to direct mode" + whenM (annexeval Annex.Version.versionSupportsDirectMode) $ + git_annex "direct" [] @? "failed switching to direct mode" git_annex "sync" [] @? "sync failed" checkmerge ("r1" ++ show switchdirect) r1 checkmerge ("r2" ++ show switchdirect) r2 @@ -1133,9 +1133,8 @@ test_nonannexed_symlink_conflict_resolution :: Assertion test_nonannexed_symlink_conflict_resolution = do check True False check False False - whenM (annexeval Annex.Version.versionSupportsDirectMode) $ do - check True True - check False True + check True True + check False True where check inr1 switchdirect = withtmpclonerepo $ \r1 -> withtmpclonerepo $ \r2 -> @@ -1155,7 +1154,8 @@ test_nonannexed_symlink_conflict_resolution = do let l = if inr1 then [r1, r2] else [r2, r1] forM_ l $ \r -> indir r $ do when switchdirect $ - git_annex "direct" [] @? "failed switching to direct mode" + whenM (annexeval Annex.Version.versionSupportsDirectMode) $ do + git_annex "direct" [] @? "failed switching to direct mode" git_annex "sync" [] @? "sync failed" checkmerge ("r1" ++ show switchdirect) r1 checkmerge ("r2" ++ show switchdirect) r2 |