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

Fix tests for Erlang < 20

Browse Source
This commit is contained in:
Simon Skorokhodov 2021-01-18 10:47:26 +01:00
parent 1c963cecd7
commit 8b328c666b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/getopt_test.erl
View File

@ -357,6 +357,7 @@ utf8_binary_test_() ->
Utf8 = unicode:characters_to_binary(Unicode),
io:setopts(standard_error, [{encoding, utf8}]),
OptSpecsWithDefault = [{utf8, undefined, "utf8", {utf8_binary, Utf8}, "UTF-8 arg"}],
UsageBin = unicode:characters_to_binary(getopt:usage_options(OptSpecsWithDefault)),
[{"Empty utf8_binary argument",
?_assertEqual({ok, {[{utf8, <<>>}], []}}, parse(OptSpecList, ["--utf8", ""]))},
{"Non empty utf8_binary argument",
@ -364,4 +365,4 @@ utf8_binary_test_() ->
{"Default utf8_binary argument",
?_assertEqual({ok, {[{utf8, Utf8}], []}}, parse(OptSpecsWithDefault, []))},
{"Default utf8_binary argument usage",
?_assert(is_list(string:find(getopt:usage_options(OptSpecsWithDefault), Unicode)))}].
?_assertEqual(1, length(binary:matches(UsageBin, Utf8)))}].