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

adjust test suite for changed dropunused behavior with bogus numbers

Browse source
This commit is contained in:
Joey Hess 2013-07-09 14:46:20 -04:00
parent 43ca8eb066
commit 8661dba587
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Test.hs
View file

@ -582,9 +582,9 @@ test_unused env = "git-annex unused/dropunused" ~: intmpclonerepoInDirect env $
@? "dropkey failed" @? "dropkey failed"
checkunused [sha1annexedfilekey] ("after dropkey --force " ++ Types.Key.key2file annexedfilekey) checkunused [sha1annexedfilekey] ("after dropkey --force " ++ Types.Key.key2file annexedfilekey)
git_annex env "dropunused" ["1", "2"] @? "dropunused failed" git_annex env "dropunused" ["1"] @? "dropunused failed"
checkunused [] "after dropunused" checkunused [] "after dropunused"
git_annex env "dropunused" ["10", "501"] @? "dropunused failed on bogus numbers" not <$> git_annex env "dropunused" ["10", "501"] @? "dropunused failed to fail on bogus numbers"
where where
checkunused expectedkeys desc = do checkunused expectedkeys desc = do