make test_export_import work on adjusted branch

This commit is contained in:
Joey Hess 2019-08-09 13:33:29 -04:00
parent b87ea12b6b
commit 5798d063b0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 36 additions and 30 deletions

View file

@ -400,6 +400,24 @@ annexed_present_locked f = ifM (annexeval Config.crippledFileSystem)
annexed_present_unlocked :: FilePath -> Assertion
annexed_present_unlocked = runchecks
[checkregularfile, checkcontent, checkwritable, inlocationlog]
annexed_present_imported :: FilePath -> Assertion
annexed_present_imported f = ifM (annexeval Config.crippledFileSystem)
( annexed_present_unlocked f
, ifM (adjustedUnlockedBranch <$> getTestMode)
( annexed_present_unlocked f
, annexed_present_locked f
)
)
annexed_notpresent_imported :: FilePath -> Assertion
annexed_notpresent_imported f = ifM (annexeval Config.crippledFileSystem)
( annexed_notpresent_unlocked f
, ifM (adjustedUnlockedBranch <$> getTestMode)
( annexed_notpresent_unlocked f
, annexed_notpresent_locked f
)
)
unannexed :: FilePath -> Assertion
unannexed = runchecks [checkregularfile, checkcontent, checkwritable]