mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

update test suite for status -> info rename

Browse source
This commit is contained in:
Joey Hess 2013-11-14 14:42:18 -04:00
parent cb02104fea
commit 0f40a80f97
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Test.hs
View file

@ -170,7 +170,7 @@ hunit =
, check "describe" test_describe , check "describe" test_describe
, check "find" test_find , check "find" test_find
, check "merge" test_merge , check "merge" test_merge
, check "status" test_status , check "info" test_info
, check "version" test_version , check "version" test_version
, check "sync" test_sync , check "sync" test_sync
, check "union merge regression" test_union_merge_regression , 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 test_merge env = "git-annex merge" ~: intmpclonerepo env $ do
git_annex env "merge" [] @? "merge failed" git_annex env "merge" [] @? "merge failed"
test_status :: TestEnv -> Test test_info :: TestEnv -> Test
test_status env = "git-annex status" ~: intmpclonerepo env $ do test_info env = "git-annex info" ~: intmpclonerepo env $ do
json <- git_annex_output env "status" ["--json"] json <- git_annex_output env "info" ["--json"]
case Text.JSON.decodeStrict json :: Text.JSON.Result (Text.JSON.JSObject Text.JSON.JSValue) of case Text.JSON.decodeStrict json :: Text.JSON.Result (Text.JSON.JSObject Text.JSON.JSValue) of
Text.JSON.Ok _ -> return () Text.JSON.Ok _ -> return ()
Text.JSON.Error e -> assertFailure e Text.JSON.Error e -> assertFailure e