Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:26
erlang-getopt
getopt-1.0.2-git.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File getopt-1.0.2-git.patch of Package erlang-getopt
diff --git a/test/getopt_test.erl b/test/getopt_test.erl index 4c7108f..0231c7d 100644 --- a/test/getopt_test.erl +++ b/test/getopt_test.erl @@ -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)))}].
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor