QPQ-AG/getopt
11
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FIX format_error : supporting options without the hyphen

Browse Source
This commit is contained in:
soranoba
2016-03-14 00:38:28 +09:00
parent 626698975e
commit f88f58a6b2
2 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/getopt_test.erl
+13 -1
View File
@@ -287,7 +287,10 @@ tokenize_test_() ->
check_test_() ->
OptSpecList =
[
{arg, $a, "arg", string, "Required arg"}
{ arg, $a, "arg", string, "Required arg"},
{short, $s, undefined, string, "short option"},
{ long, undefined, "long", string, "long option"},
{other, undefined, undefined, string, "task"}
],
{ok, {Opts, _}} = parse(OptSpecList, ""),
[
@@ -301,6 +304,15 @@ check_test_() ->
{"Format missing option error test 2",
?_assertEqual("missing required option: -a (arg)",
format_error(OptSpecList, {missing_required_option, arg}))},
{"Format missing option error test 3",
?_assertEqual("missing required option: -s",
format_error(OptSpecList, {missing_required_option, short}))},
{"Format missing option error test 4",
?_assertEqual("missing required option: --long",
format_error(OptSpecList, {missing_required_option, long}))},
{"Format missing option error test 5",
?_assertEqual("missing required option: <other>",
format_error(OptSpecList, {missing_required_option, other}))},
{"Format invalid option error test 1",
?_assertEqual("invalid option: --verbose",
format_error(OptSpecList, {error, {invalid_option, "--verbose"}}))},