diff options
author | 2011-09-28 17:48:11 -0400 | |
---|---|---|
committer | 2011-09-28 17:48:11 -0400 | |
commit | 26bb45d12a26e51d2e41af0ed66e5300cbe52fee (patch) | |
tree | 4e4d33d53b4fc12bf17a6f9726696cdc0193ddf1 /test.hs | |
parent | 8e4bd621b9e8ecafc65e029f015a4c460ec95abc (diff) |
update test suite for smarter unused
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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 |