diff options
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -582,9 +582,10 @@ test_unused env = "git-annex unused/dropunused" ~: intmpclonerepoInDirect env $ @? "dropkey failed" checkunused [sha1annexedfilekey] ("after dropkey --force " ++ Types.Key.key2file annexedfilekey) - git_annex env "dropunused" ["1"] @? "dropunused failed" + not <$> git_annex env "dropunused" ["1"] @? "dropunused failed to fail without --force" + git_annex env "dropunused" ["--force", "1"] @? "dropunused failed" checkunused [] "after dropunused" - not <$> git_annex env "dropunused" ["10", "501"] @? "dropunused failed to fail on bogus numbers" + not <$> git_annex env "dropunused" ["--force", "10", "501"] @? "dropunused failed to fail on bogus numbers" where checkunused expectedkeys desc = do |