log: Fix reversion introduced in version 5.20150528 that broke this command.
This commit is contained in:
parent
3d0a4a0a67
commit
833cf5fff9
5 changed files with 22 additions and 1 deletions
5
Test.hs
5
Test.hs
|
@ -180,6 +180,7 @@ unitTests :: String -> TestTree
|
|||
unitTests note = testGroup ("Unit Tests " ++ note)
|
||||
[ testCase "add sha1dup" test_add_sha1dup
|
||||
, testCase "add extras" test_add_extras
|
||||
, testCase "log" test_log
|
||||
, testCase "import" test_import
|
||||
, testCase "reinject" test_reinject
|
||||
, testCase "unannex (no copy)" test_unannex_nocopy
|
||||
|
@ -282,6 +283,10 @@ test_add_extras = intmpclonerepo $ do
|
|||
annexed_present wormannexedfile
|
||||
checkbackend wormannexedfile backendWORM
|
||||
|
||||
test_log :: Assertion
|
||||
test_log = intmpclonerepo $ do
|
||||
git_annex "log" [annexedfile] @? "log failed"
|
||||
|
||||
test_import :: Assertion
|
||||
test_import = intmpclonerepo $ Utility.Tmp.withTmpDir "importtest" $ \importdir -> do
|
||||
(toimport1, importf1, imported1) <- mktoimport importdir "import1"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue