Current section

Files

Jump to
gleam_stdlib gen test gleam@bit_builder_test.erl
Raw

gen/test/gleam@bit_builder_test.erl

-module(gleam@bit_builder_test).
-compile(no_auto_import).
-export([builder_test/0, builder_with_strings_test/0, builder_with_builders_test/0, concat_test/0, from_bit_string_test/0, from_string_test/0]).
-spec builder_test() -> nil.
builder_test() ->
Data = begin
_pipe = gleam@bit_builder:from_bit_string(<<1>>),
_pipe@1 = gleam@bit_builder:append(_pipe, <<2>>),
_pipe@2 = gleam@bit_builder:append(_pipe@1, <<3>>),
gleam@bit_builder:prepend(_pipe@2, <<0>>)
end,
_pipe@3 = Data,
_pipe@4 = gleam@bit_builder:to_bit_string(_pipe@3),
gleam@should:equal(_pipe@4, <<0, 1, 2, 3>>),
_pipe@5 = Data,
_pipe@6 = gleam@bit_builder:byte_size(_pipe@5),
gleam@should:equal(_pipe@6, 4).
-spec builder_with_strings_test() -> nil.
builder_with_strings_test() ->
Data = begin
_pipe = gleam@bit_builder:from_bit_string(<<1>>),
_pipe@1 = gleam@bit_builder:append_string(_pipe, <<"2"/utf8>>),
_pipe@2 = gleam@bit_builder:append_string(_pipe@1, <<"3"/utf8>>),
gleam@bit_builder:prepend_string(_pipe@2, <<"0"/utf8>>)
end,
_pipe@3 = Data,
_pipe@4 = gleam@bit_builder:to_bit_string(_pipe@3),
gleam@should:equal(_pipe@4, <<"0"/utf8, 1, "2"/utf8, "3"/utf8>>),
_pipe@5 = Data,
_pipe@6 = gleam@bit_builder:byte_size(_pipe@5),
gleam@should:equal(_pipe@6, 4).
-spec builder_with_builders_test() -> nil.
builder_with_builders_test() ->
Data = begin
_pipe = gleam@bit_builder:from_bit_string(<<1>>),
_pipe@1 = gleam@bit_builder:append_builder(
_pipe,
gleam@bit_builder:from_bit_string(<<2>>)
),
_pipe@2 = gleam@bit_builder:append_builder(
_pipe@1,
gleam@bit_builder:from_bit_string(<<3>>)
),
gleam@bit_builder:prepend_builder(
_pipe@2,
gleam@bit_builder:from_bit_string(<<0>>)
)
end,
_pipe@3 = Data,
_pipe@4 = gleam@bit_builder:to_bit_string(_pipe@3),
gleam@should:equal(_pipe@4, <<0, 1, 2, 3>>),
_pipe@5 = Data,
_pipe@6 = gleam@bit_builder:byte_size(_pipe@5),
gleam@should:equal(_pipe@6, 4).
-spec concat_test() -> nil.
concat_test() ->
_pipe = [gleam@bit_builder:from_bit_string(<<1, 2>>),
gleam@bit_builder:from_bit_string(<<3, 4>>),
gleam@bit_builder:from_bit_string(<<5, 6>>)],
_pipe@1 = gleam@bit_builder:concat(_pipe),
_pipe@2 = gleam@bit_builder:to_bit_string(_pipe@1),
gleam@should:equal(_pipe@2, <<1, 2, 3, 4, 5, 6>>).
-spec from_bit_string_test() -> nil.
from_bit_string_test() ->
_pipe = gleam@bit_builder:from_bit_string(<<>>),
_pipe@1 = gleam@bit_builder:to_bit_string(_pipe),
gleam@should:equal(_pipe@1, <<>>).
-spec from_string_test() -> nil.
from_string_test() ->
_pipe = gleam@bit_builder:from_string(<<""/utf8>>),
_pipe@1 = gleam@bit_builder:to_bit_string(_pipe),
gleam@should:equal(_pipe@1, <<>>).