Current section

Files

Jump to
gleam_stdlib gen test gleam@regex_test.erl
Raw

gen/test/gleam@regex_test.erl

-module(gleam@regex_test).
-compile(no_auto_import).
-export([from_string_test/0, compile_test/0, check_test/0, split_test/0, scan_test/0]).
from_string_test() ->
{ok, Re} = gleam@regex:from_string(<<"[0-9]"/utf8>>),
gleam@should:equal(gleam@regex:check(Re, <<"abc123"/utf8>>), true),
gleam@should:equal(gleam@regex:check(Re, <<"abcxyz"/utf8>>), false),
{error, FromStringErr} = gleam@regex:from_string(<<"[0-9"/utf8>>),
gleam@should:equal(
FromStringErr,
{compile_error, <<"missing terminating ] for character class"/utf8>>, 4}
).
compile_test() ->
Options = {options, true, false},
{ok, Re} = gleam@regex:compile(<<"[A-B]"/utf8>>, Options),
gleam@should:equal(gleam@regex:check(Re, <<"abc123"/utf8>>), true),
Options1 = {options, false, true},
{ok, Re1} = gleam@regex:compile(<<"^[0-9]"/utf8>>, Options1),
gleam@should:equal(gleam@regex:check(Re1, <<"abc\n123"/utf8>>), true).
check_test() ->
{ok, Re} = gleam@regex:from_string(<<"^f.o.?"/utf8>>),
gleam@should:equal(gleam@regex:check(Re, <<"foo"/utf8>>), true),
gleam@should:equal(gleam@regex:check(Re, <<"boo"/utf8>>), false).
split_test() ->
{ok, Re} = gleam@regex:from_string(<<" *, *"/utf8>>),
gleam@should:equal(
gleam@regex:split(Re, <<"foo,32, 4, 9 ,0"/utf8>>),
[<<"foo"/utf8>>,
<<"32"/utf8>>,
<<"4"/utf8>>,
<<"9"/utf8>>,
<<"0"/utf8>>]
).
scan_test() ->
{ok, Re} = gleam@regex:from_string(<<"Gl\\w+"/utf8>>),
gleam@should:equal(
gleam@regex:scan(Re, <<"!Gleam"/utf8>>),
[{match, <<"Gleam"/utf8>>, 1, []}]
),
gleam@should:equal(
gleam@regex:scan(Re, <<"हGleam"/utf8>>),
[{match, <<"Gleam"/utf8>>, 3, []}]
),
gleam@should:equal(
gleam@regex:scan(Re, <<"𐍈Gleam"/utf8>>),
[{match, <<"Gleam"/utf8>>, 4, []}]
),
{ok, Re1} = gleam@regex:from_string(<<"[oi]n a(.?) (\\w+)"/utf8>>),
gleam@should:equal(
gleam@regex:scan(Re1, <<"I am on a boat in a lake."/utf8>>),
[{match, <<"on a boat"/utf8>>, 5, [none, {some, <<"boat"/utf8>>}]},
{match, <<"in a lake"/utf8>>, 15, [none, {some, <<"lake"/utf8>>}]}]
).