diff options
author | Louis Pilfold <louis@lpil.uk> | 2019-04-01 19:20:11 +0000 |
---|---|---|
committer | Louis Pilfold <louis@lpil.uk> | 2019-04-01 19:20:16 +0000 |
commit | 2c6031e323226abbf3c1bc961e7ee56213add0d1 (patch) | |
tree | 83e8f84effcc9d5ecc08bf288d77bb7b6e1d235f /gen/str.erl | |
parent | 6be7e9b778ddd9761d8000212232104dee39da6c (diff) | |
download | gleam_stdlib-2c6031e323226abbf3c1bc961e7ee56213add0d1.tar.gz gleam_stdlib-2c6031e323226abbf3c1bc961e7ee56213add0d1.zip |
Additional string fns
Diffstat (limited to 'gen/str.erl')
-rw-r--r-- | gen/str.erl | 30 |
1 files changed, 29 insertions, 1 deletions
diff --git a/gen/str.erl b/gen/str.erl index 9625807..4ca27f5 100644 --- a/gen/str.erl +++ b/gen/str.erl @@ -2,7 +2,7 @@ -compile(no_auto_import). -include_lib("eunit/include/eunit.hrl"). --export([length/1, lowercase/1, uppercase/1, reverse/1, split/2, replace/3]). +-export([length/1, lowercase/1, uppercase/1, reverse/1, split/2, replace/3, from_int/1, base_from_int/2, from_float/1]). length(A) -> string:length(A). @@ -57,3 +57,31 @@ replace_test() -> expect:equal(replace(<<"Gleam,Erlang,Elixir">>, <<",">>, <<"++">>), <<"Gleam++Erlang++Elixir">>). -endif. + +from_int(A) -> + erlang:integer_to_binary(A). + +-ifdef(TEST). +from_int_test() -> + expect:equal(from_int(123), <<"123">>), + expect:equal(from_int(-123), <<"-123">>), + expect:equal(from_int(123), <<"123">>). +-endif. + +base_from_int(A, B) -> + erlang:integer_to_binary(A, B). + +-ifdef(TEST). +base_from_int_test() -> + expect:equal(base_from_int(100, 16), <<"64">>), + expect:equal(base_from_int(-100, 16), <<"-64">>). +-endif. + +from_float(F) -> + iodata:to_string(iodata:from_float(F)). + +-ifdef(TEST). +from_float_test() -> + expect:equal(from_float(123.0), <<"123.0">>), + expect:equal(from_float(-8.1), <<"-8.1">>). +-endif. |