diff options
| author | Louis Pilfold <louis@lpil.uk> | 2019-05-29 21:02:55 +0100 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-06-02 21:12:59 +0100 |
| commit | 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 (patch) | |
| tree | 5d0d281c66cf71c6e3ca880e6621138a71b95e7b /gen/test/std@iodata_test.erl | |
| parent | ee03f5a0465e176e220060164a5ffc408f73ed0d (diff) | |
| download | gleam_stdlib-5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31.tar.gz gleam_stdlib-5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31.zip | |
Enable namespaced modules
Diffstat (limited to 'gen/test/std@iodata_test.erl')
| -rw-r--r-- | gen/test/std@iodata_test.erl | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/gen/test/std@iodata_test.erl b/gen/test/std@iodata_test.erl new file mode 100644 index 0000000..cdfe81f --- /dev/null +++ b/gen/test/std@iodata_test.erl @@ -0,0 +1,57 @@ +-module(std@iodata_test). +-compile(no_auto_import). + +-export([iodata_test/0, lowercase_test/0, uppercase_test/0, split_test/0, is_equal_test/0, is_empty_test/0]). + +iodata_test() -> + Data = std@iodata:prepend(std@iodata:append(std@iodata:append(std@iodata:new(<<"ello">>), + <<",">>), + <<" world!">>), + <<"H">>), + std@expect:equal(std@iodata:to_string(Data), <<"Hello, world!">>), + std@expect:equal(std@iodata:byte_size(Data), 13), + Data1 = std@iodata:prepend_iodata(std@iodata:append_iodata(std@iodata:append_iodata(std@iodata:new(<<"ello">>), + std@iodata:new(<<",">>)), + std@iodata:concat([std@iodata:new(<<" wo">>), + std@iodata:new(<<"rld!">>)])), + std@iodata:new(<<"H">>)), + std@expect:equal(std@iodata:to_string(Data1), <<"Hello, world!">>), + std@expect:equal(std@iodata:byte_size(Data1), 13). + +lowercase_test() -> + std@expect:equal(std@iodata:to_string(std@iodata:lowercase(std@iodata:from_strings([<<"Gleam">>, + <<"Gleam">>]))), + <<"gleamgleam">>). + +uppercase_test() -> + std@expect:equal(std@iodata:to_string(std@iodata:uppercase(std@iodata:from_strings([<<"Gleam">>, + <<"Gleam">>]))), + <<"GLEAMGLEAM">>). + +split_test() -> + std@expect:equal(std@iodata:split(std@iodata:new(<<"Gleam,Erlang,Elixir">>), + <<",">>), + [std@iodata:new(<<"Gleam">>), + std@iodata:new(<<"Erlang">>), + std@iodata:new(<<"Elixir">>)]), + std@expect:equal(std@iodata:split(std@iodata:from_strings([<<"Gleam, Erl">>, + <<"ang,Elixir">>]), + <<", ">>), + [std@iodata:new(<<"Gleam">>), + std@iodata:from_strings([<<"Erl">>, <<"ang,Elixir">>])]). + +is_equal_test() -> + std@expect:true(std@iodata:is_equal(std@iodata:new(<<"12">>), + std@iodata:from_strings([<<"1">>, + <<"2">>]))), + std@expect:true(std@iodata:is_equal(std@iodata:new(<<"12">>), + std@iodata:new(<<"12">>))), + std@expect:false(std@iodata:is_equal(std@iodata:new(<<"12">>), + std@iodata:new(<<"2">>))). + +is_empty_test() -> + std@expect:true(std@iodata:is_empty(std@iodata:new(<<"">>))), + std@expect:false(std@iodata:is_empty(std@iodata:new(<<"12">>))), + std@expect:true(std@iodata:is_empty(std@iodata:from_strings([]))), + std@expect:true(std@iodata:is_empty(std@iodata:from_strings([<<"">>, + <<"">>]))). |