diff options
author | 2013-11-14 14:42:18 -0400 | |
---|---|---|
committer | 2013-11-14 14:42:18 -0400 | |
commit | 5c6f6e4d0abb9b4856908a500611044b3b7a48e6 (patch) | |
tree | 344cefb35434bdcd114b5c79ce2b29d25d7cd496 | |
parent | 6a1923445605535c99473b46a5351b9cf1d9fdc9 (diff) |
update test suite for status -> info rename
-rw-r--r-- | Test.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |