convert test to Remote
This commit is contained in:
parent
30f427700f
commit
688e94fd30
1 changed files with 2 additions and 4 deletions
6
test.hs
6
test.hs
|
@ -35,7 +35,7 @@ import qualified GitAnnex
|
|||
import qualified LocationLog
|
||||
import qualified UUID
|
||||
import qualified Trust
|
||||
import qualified Remotes
|
||||
import qualified Remote
|
||||
import qualified Content
|
||||
import qualified Command.DropUnused
|
||||
import qualified Key
|
||||
|
@ -337,10 +337,8 @@ test_trust = "git-annex trust/untrust/semitrust" ~: intmpclonerepo $ do
|
|||
repo = "origin"
|
||||
trustcheck expected msg = do
|
||||
present <- annexeval $ do
|
||||
Remotes.readConfigs
|
||||
l <- Trust.trustGet expected
|
||||
r <- Remotes.byName repo
|
||||
u <- UUID.getUUID r
|
||||
u <- Remote.nameToUUID repo
|
||||
return $ u `elem` l
|
||||
assertBool msg present
|
||||
|
||||
|
|
Loading…
Reference in a new issue