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

convert test to Remote

Browse source
This commit is contained in:
Joey Hess 2011-03-27 16:58:28 -04:00
parent 30f427700f
commit 688e94fd30
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test.hs
View file

@ -35,7 +35,7 @@ import qualified GitAnnex
import qualified LocationLog import qualified LocationLog
import qualified UUID import qualified UUID
import qualified Trust import qualified Trust
import qualified Remotes import qualified Remote
import qualified Content import qualified Content
import qualified Command.DropUnused import qualified Command.DropUnused
import qualified Key import qualified Key
@ -337,10 +337,8 @@ test_trust = "git-annex trust/untrust/semitrust" ~: intmpclonerepo $ do
repo = "origin" repo = "origin"
trustcheck expected msg = do trustcheck expected msg = do
present <- annexeval $ do present <- annexeval $ do
Remotes.readConfigs
l <- Trust.trustGet expected l <- Trust.trustGet expected
r <- Remotes.byName repo u <- Remote.nameToUUID repo
u <- UUID.getUUID r
return $ u `elem` l return $ u `elem` l
assertBool msg present assertBool msg present