summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-09-28 17:48:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-09-28 17:48:11 -0400
commit26bb45d12a26e51d2e41af0ed66e5300cbe52fee (patch)
tree4e4d33d53b4fc12bf17a6f9726696cdc0193ddf1
parent8e4bd621b9e8ecafc65e029f015a4c460ec95abc (diff)
update test suite for smarter unused
-rw-r--r--test.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/test.hs b/test.hs
index 32278f0fc..21e09e98e 100644
--- a/test.hs
+++ b/test.hs
@@ -38,7 +38,6 @@ import qualified UUID
import qualified Trust
import qualified Remote
import qualified RemoteLog
-import qualified Content
import qualified Command.DropUnused
import qualified Types.Key
import qualified Config
@@ -453,8 +452,14 @@ test_unused = "git-annex unused/dropunused" ~: intmpclonerepo $ do
git_annex "get" ["-q", sha1annexedfile] @? "get of file failed"
checkunused []
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]
boolSystem "git" [Params "rm -q", File sha1annexedfile] @? "git rm failed"
+ boolSystem "git" [Params "commit -m foo"] @? "git commit failed"
checkunused [annexedfilekey, sha1annexedfilekey]
-- good opportunity to test dropkey also