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

fix build

Browse source
This commit is contained in:
Joey Hess 2012-05-05 20:11:08 -04:00
parent 8c09c17f6b
commit 657d09d499
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.hs
View file

@ -35,8 +35,8 @@ import qualified GitAnnex
import qualified Logs.UUIDBased import qualified Logs.UUIDBased
import qualified Logs.Trust import qualified Logs.Trust
import qualified Logs.Remote import qualified Logs.Remote
import qualified Logs.Unused
import qualified Remote import qualified Remote
import qualified Command.DropUnused
import qualified Types.Key import qualified Types.Key
import qualified Types.Messages import qualified Types.Messages
import qualified Config import qualified Config
@ -495,7 +495,7 @@ test_unused = "git-annex unused/dropunused" ~: intmpclonerepo $ do
where where
checkunused expectedkeys = do checkunused expectedkeys = do
git_annex "unused" [] @? "unused failed" git_annex "unused" [] @? "unused failed"
unusedmap <- annexeval $ Command.DropUnused.readUnusedLog "" unusedmap <- annexeval $ Logs.Unused.readUnusedLog ""
let unusedkeys = M.elems unusedmap let unusedkeys = M.elems unusedmap
assertEqual "unused keys differ" assertEqual "unused keys differ"
(sort expectedkeys) (sort unusedkeys) (sort expectedkeys) (sort unusedkeys)