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

Added test cases for new functions

Browse Source
This commit is contained in:
serge 2013-07-18 20:03:50 -04:00
parent 5c03bb75f3
commit 0ff0a00b78
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/getopt_test.erl
View File

@ -13,7 +13,7 @@
-include_lib("eunit/include/eunit.hrl").
-import(getopt, [parse/2, tokenize/1]).
-import(getopt, [parse/2, check/2, parse_and_check/2, format_error/2, tokenize/1]).
-define(NAME(Opt), element(1, Opt)).
-define(SHORT(Opt), element(2, Opt)).
@ -283,3 +283,19 @@ tokenize_test_() ->
?_assertEqual(["ABC","abc","1234","5678","DEFGHI","\"JKL \"", "$PATH"],
tokenize(" ABC abc '1234' \"5678\" 'DEF'\"GHI\" '\"JKL \"' \\$PATH"))}
].
check_test_() ->
OptSpecList =
[
{arg, $a, "arg", string, "Required arg"}
],
{ok, {Opts, _}} = parse(OptSpecList, ""),
[
{"Check required options",
?_assertEqual({error, {missing_required_option, arg}}, check(Opts, OptSpecList))},
{"Parse arguments and check required options",
?_assertEqual({error, {missing_required_option, arg}}, parse_and_check(OptSpecList, ""))},
{"Format error test",
?_assertEqual("missing required option: -a (arg)",
format_error({missing_required_option, arg}, OptSpecList))}
].