diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@string.erl | 5 | ||||
| -rw-r--r-- | gen/test/gleam@string_test.erl | 9 |
2 files changed, 12 insertions, 2 deletions
diff --git a/gen/src/gleam@string.erl b/gen/src/gleam@string.erl index 00643c3..81b6495 100644 --- a/gen/src/gleam@string.erl +++ b/gen/src/gleam@string.erl @@ -1,7 +1,7 @@ -module(gleam@string). -compile(no_auto_import). --export([length/1, lowercase/1, uppercase/1, reverse/1, split/2, replace/3, append/2]). +-export([length/1, lowercase/1, uppercase/1, compare/2, reverse/1, split/2, replace/3, append/2]). length(A) -> string:length(A). @@ -12,6 +12,9 @@ lowercase(A) -> uppercase(A) -> string:uppercase(A). +compare(A, B) -> + gleam_stdlib:compare_strings(A, B). + reverse(String) -> gleam@iodata:to_string(gleam@iodata:reverse(gleam@iodata:new(String))). diff --git a/gen/test/gleam@string_test.erl b/gen/test/gleam@string_test.erl index 767d11c..e28f696 100644 --- a/gen/test/gleam@string_test.erl +++ b/gen/test/gleam@string_test.erl @@ -1,7 +1,7 @@ -module(gleam@string_test). -compile(no_auto_import). --export([length_test/0, lowercase_test/0, uppercase_test/0, reverse_test/0, split_test/0, replace_test/0, append_test/0]). +-export([length_test/0, lowercase_test/0, uppercase_test/0, reverse_test/0, split_test/0, replace_test/0, append_test/0, compare_test/0]). length_test() -> gleam@expect:equal(gleam@string:length(<<"ß↑e̊">>), 3), @@ -38,3 +38,10 @@ append_test() -> gleam@string:append(<<"Test">>, <<" Me">>), <<"Test Me">> ). + +compare_test() -> + gleam@expect:equal(gleam@string:compare(<<"">>, <<"">>), eq), + gleam@expect:equal(gleam@string:compare(<<"a">>, <<"">>), gt), + gleam@expect:equal(gleam@string:compare(<<"a">>, <<"A">>), gt), + gleam@expect:equal(gleam@string:compare(<<"A">>, <<"B">>), lt), + gleam@expect:equal(gleam@string:compare(<<"t">>, <<"ABC">>), gt). |