log: Fix reversion introduced in version 5.20150528 that broke this command.

1 files changed, 5 insertions, 0 deletions

diff --git a/Test.hs b/Test.hs
index 95f4af23e..9f211d23b 100644
--- a/Test.hs
+++ b/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"