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

update test suite for smarter unused

Browse source
This commit is contained in:
Joey Hess 2011-09-28 17:48:11 -04:00
parent 8e4bd621b9
commit 26bb45d12a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test.hs
View file

@ -38,7 +38,6 @@ import qualified UUID
import qualified Trust import qualified Trust
import qualified Remote import qualified Remote
import qualified RemoteLog import qualified RemoteLog
import qualified Content
import qualified Command.DropUnused import qualified Command.DropUnused
import qualified Types.Key import qualified Types.Key
import qualified Config import qualified Config
@ -453,8 +452,14 @@ test_unused = "git-annex unused/dropunused" ~: intmpclonerepo $ do
git_annex "get" ["-q", sha1annexedfile] @? "get of file failed" git_annex "get" ["-q", sha1annexedfile] @? "get of file failed"
checkunused [] checkunused []
boolSystem "git" [Params "rm -q", File annexedfile] @? "git rm failed" boolSystem "git" [Params "rm -q", File annexedfile] @? "git rm failed"
checkunused []
boolSystem "git" [Params "commit -m foo"] @? "git commit failed"
checkunused []
-- unused checks origin/master; once it's gone it is really unused
boolSystem "git" [Params "remote rm origin"] @? "git remote rm origin failed"
checkunused [annexedfilekey] checkunused [annexedfilekey]
boolSystem "git" [Params "rm -q", File sha1annexedfile] @? "git rm failed" boolSystem "git" [Params "rm -q", File sha1annexedfile] @? "git rm failed"
boolSystem "git" [Params "commit -m foo"] @? "git commit failed"
checkunused [annexedfilekey, sha1annexedfilekey] checkunused [annexedfilekey, sha1annexedfilekey]
-- good opportunity to test dropkey also -- good opportunity to test dropkey also