summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-14 14:42:18 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-14 14:42:18 -0400
commit5c6f6e4d0abb9b4856908a500611044b3b7a48e6 (patch)
tree344cefb35434bdcd114b5c79ce2b29d25d7cd496
parent6a1923445605535c99473b46a5351b9cf1d9fdc9 (diff)
update test suite for status -> info rename
-rw-r--r--Test.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Test.hs b/Test.hs
index c0225b782..77ddefc71 100644
--- a/Test.hs
+++ b/Test.hs
@@ -170,7 +170,7 @@ hunit =
, check "describe" test_describe
, check "find" test_find
, check "merge" test_merge
- , check "status" test_status
+ , check "info" test_info
, check "version" test_version
, check "sync" test_sync
, check "union merge regression" test_union_merge_regression
@@ -686,9 +686,9 @@ test_merge :: TestEnv -> Test
test_merge env = "git-annex merge" ~: intmpclonerepo env $ do
git_annex env "merge" [] @? "merge failed"
-test_status :: TestEnv -> Test
-test_status env = "git-annex status" ~: intmpclonerepo env $ do
- json <- git_annex_output env "status" ["--json"]
+test_info :: TestEnv -> Test
+test_info env = "git-annex info" ~: intmpclonerepo env $ do
+ json <- git_annex_output env "info" ["--json"]
case Text.JSON.decodeStrict json :: Text.JSON.Result (Text.JSON.JSObject Text.JSON.JSValue) of
Text.JSON.Ok _ -> return ()
Text.JSON.Error e -> assertFailure e