diff options
author | Peter Saxton <peterhsaxton@gmail.com> | 2020-05-19 17:23:11 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-05-19 17:23:11 +0100 |
commit | a805e1fcdc2393aa789ef2dfb15a00669e3e079b (patch) | |
tree | cbad9cee5c94fcbbbf797869ed05d80107349c68 /gen/test | |
parent | 88ab320ab452d3151f4f4b391dafd57af07e863c (diff) | |
download | gleam_stdlib-a805e1fcdc2393aa789ef2dfb15a00669e3e079b.tar.gz gleam_stdlib-a805e1fcdc2393aa789ef2dfb15a00669e3e079b.zip |
Add gen to ignored files in git (#47)
Diffstat (limited to 'gen/test')
-rw-r--r-- | gen/test/gleam@atom_test.erl | 43 | ||||
-rw-r--r-- | gen/test/gleam@bool_test.erl | 30 | ||||
-rw-r--r-- | gen/test/gleam@dynamic_test.erl | 199 | ||||
-rw-r--r-- | gen/test/gleam@float_test.erl | 71 | ||||
-rw-r--r-- | gen/test/gleam@function_test.erl | 50 | ||||
-rw-r--r-- | gen/test/gleam@int_test.erl | 63 | ||||
-rw-r--r-- | gen/test/gleam@iodata_test.erl | 103 | ||||
-rw-r--r-- | gen/test/gleam@list_test.erl | 291 | ||||
-rw-r--r-- | gen/test/gleam@map_test.erl | 191 | ||||
-rw-r--r-- | gen/test/gleam@order_test.erl | 47 | ||||
-rw-r--r-- | gen/test/gleam@pair_test.erl | 29 | ||||
-rw-r--r-- | gen/test/gleam@result_test.erl | 67 | ||||
-rw-r--r-- | gen/test/gleam@string_test.erl | 212 |
13 files changed, 0 insertions, 1396 deletions
diff --git a/gen/test/gleam@atom_test.erl b/gen/test/gleam@atom_test.erl deleted file mode 100644 index 91a16bd..0000000 --- a/gen/test/gleam@atom_test.erl +++ /dev/null @@ -1,43 +0,0 @@ --module(gleam@atom_test). --compile(no_auto_import). - --export([from_string_test/0, create_from_string_test/0, to_string_test/0]). - -from_string_test() -> - gleam@should:be_ok(gleam@atom:from_string(<<"ok"/utf8>>)), - gleam@should:be_ok(gleam@atom:from_string(<<"expect"/utf8>>)), - gleam@should:equal( - gleam@atom:from_string( - <<"this is not an atom we have seen before"/utf8>> - ), - {error, atom_not_loaded} - ). - -create_from_string_test() -> - gleam@should:equal( - {ok, gleam@atom:create_from_string(<<"ok"/utf8>>)}, - gleam@atom:from_string(<<"ok"/utf8>>) - ), - gleam@should:equal( - {ok, gleam@atom:create_from_string(<<"expect"/utf8>>)}, - gleam@atom:from_string(<<"expect"/utf8>>) - ), - gleam@should:equal( - {ok, - gleam@atom:create_from_string( - <<"this is another atom we have not seen before"/utf8>> - )}, - gleam@atom:from_string( - <<"this is another atom we have not seen before"/utf8>> - ) - ). - -to_string_test() -> - gleam@should:equal( - gleam@atom:to_string(gleam@atom:create_from_string(<<"ok"/utf8>>)), - <<"ok"/utf8>> - ), - gleam@should:equal( - gleam@atom:to_string(gleam@atom:create_from_string(<<"expect"/utf8>>)), - <<"expect"/utf8>> - ). diff --git a/gen/test/gleam@bool_test.erl b/gen/test/gleam@bool_test.erl deleted file mode 100644 index 8f31a9d..0000000 --- a/gen/test/gleam@bool_test.erl +++ /dev/null @@ -1,30 +0,0 @@ --module(gleam@bool_test). --compile(no_auto_import). - --export([negate_test/0, compare_test/0, max_test/0, min_test/0, to_int_test/0]). - -negate_test() -> - gleam@should:be_false(gleam@bool:negate(true)), - gleam@should:be_true(gleam@bool:negate(false)). - -compare_test() -> - gleam@should:equal(gleam@bool:compare(true, true), eq), - gleam@should:equal(gleam@bool:compare(true, false), gt), - gleam@should:equal(gleam@bool:compare(false, false), eq), - gleam@should:equal(gleam@bool:compare(false, true), lt). - -max_test() -> - gleam@should:equal(gleam@bool:max(true, true), true), - gleam@should:equal(gleam@bool:max(true, false), true), - gleam@should:equal(gleam@bool:max(false, false), false), - gleam@should:equal(gleam@bool:max(false, true), true). - -min_test() -> - gleam@should:equal(gleam@bool:min(true, true), true), - gleam@should:equal(gleam@bool:min(true, false), false), - gleam@should:equal(gleam@bool:min(false, false), false), - gleam@should:equal(gleam@bool:min(false, true), false). - -to_int_test() -> - gleam@should:equal(gleam@bool:to_int(true), 1), - gleam@should:equal(gleam@bool:to_int(false), 0). diff --git a/gen/test/gleam@dynamic_test.erl b/gen/test/gleam@dynamic_test.erl deleted file mode 100644 index 785af15..0000000 --- a/gen/test/gleam@dynamic_test.erl +++ /dev/null @@ -1,199 +0,0 @@ --module(gleam@dynamic_test). --compile(no_auto_import). - --export([string_test/0, int_test/0, float_test/0, thunk_test/0, bool_test/0, atom_test/0, list_test/0, field_test/0, element_test/0]). - -string_test() -> - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(<<""/utf8>>)), - {ok, <<""/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(<<"Hello"/utf8>>)), - {ok, <<"Hello"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from(1)), - {error, <<"Expected a string, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:string(gleam@dynamic:from([])), - {error, <<"Expected a string, got a list"/utf8>>} - ). - -int_test() -> - gleam@should:equal(gleam@dynamic:int(gleam@dynamic:from(1)), {ok, 1}), - gleam@should:equal(gleam@dynamic:int(gleam@dynamic:from(2)), {ok, 2}), - gleam@should:equal( - gleam@dynamic:int(gleam@dynamic:from(1.0)), - {error, <<"Expected an int, got a float"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:int(gleam@dynamic:from([])), - {error, <<"Expected an int, got a list"/utf8>>} - ). - -float_test() -> - gleam@should:equal(gleam@dynamic:float(gleam@dynamic:from(1.0)), {ok, 1.0}), - gleam@should:equal(gleam@dynamic:float(gleam@dynamic:from(2.2)), {ok, 2.2}), - gleam@should:equal( - gleam@dynamic:float(gleam@dynamic:from(1)), - {error, <<"Expected a float, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:float(gleam@dynamic:from([])), - {error, <<"Expected a float, got a list"/utf8>>} - ). - -thunk_test() -> - gleam@should:be_ok(gleam@dynamic:thunk(gleam@dynamic:from(fun() -> 1 end))), - gleam@should:equal( - gleam@result:map( - gleam@dynamic:thunk(gleam@dynamic:from(fun() -> 1 end)), - fun(F) -> F() end - ), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:be_error( - gleam@dynamic:thunk(gleam@dynamic:from(fun(X) -> X end)) - ), - gleam@should:be_error(gleam@dynamic:thunk(gleam@dynamic:from(1))), - gleam@should:be_error(gleam@dynamic:thunk(gleam@dynamic:from([]))). - -bool_test() -> - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(true)), - {ok, true} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(false)), - {ok, false} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from(1)), - {error, <<"Expected a bool, got an int"/utf8>>} - ), - gleam@should:equal( - gleam@dynamic:bool(gleam@dynamic:from([])), - {error, <<"Expected a bool, got a list"/utf8>>} - ). - -atom_test() -> - gleam@should:equal( - gleam@dynamic:atom( - gleam@dynamic:from(gleam@atom:create_from_string(<<""/utf8>>)) - ), - {ok, gleam@atom:create_from_string(<<""/utf8>>)} - ), - gleam@should:equal( - gleam@dynamic:atom( - gleam@dynamic:from(gleam@atom:create_from_string(<<"ok"/utf8>>)) - ), - {ok, gleam@atom:create_from_string(<<"ok"/utf8>>)} - ), - gleam@should:be_error(gleam@dynamic:atom(gleam@dynamic:from(1))), - gleam@should:be_error(gleam@dynamic:atom(gleam@dynamic:from([]))). - -list_test() -> - gleam@should:equal( - gleam@dynamic:list(gleam@dynamic:from([]), fun gleam@dynamic:string/1), - {ok, []} - ), - gleam@should:equal( - gleam@dynamic:list(gleam@dynamic:from([]), fun gleam@dynamic:int/1), - {ok, []} - ), - gleam@should:equal( - gleam@dynamic:list( - gleam@dynamic:from([1, 2, 3]), - fun gleam@dynamic:int/1 - ), - {ok, [1, 2, 3]} - ), - gleam@should:equal( - gleam@dynamic:list( - gleam@dynamic:from([[1], [2], [3]]), - fun(GleamCaptureVariable) -> - gleam@dynamic:list( - GleamCaptureVariable, - fun gleam@dynamic:int/1 - ) - end - ), - {ok, [[1], [2], [3]]} - ), - gleam@should:be_error( - gleam@dynamic:list(gleam@dynamic:from(1), fun gleam@dynamic:string/1) - ), - gleam@should:be_error( - gleam@dynamic:list(gleam@dynamic:from(1.0), fun gleam@dynamic:int/1) - ), - gleam@should:be_error( - gleam@dynamic:list( - gleam@dynamic:from([<<""/utf8>>]), - fun gleam@dynamic:int/1 - ) - ), - gleam@should:be_error( - gleam@dynamic:list( - gleam@dynamic:from( - [gleam@dynamic:from(1), - gleam@dynamic:from(<<"not an int"/utf8>>)] - ), - fun gleam@dynamic:int/1 - ) - ). - -field_test() -> - {ok, OkAtom} = gleam@atom:from_string(<<"ok"/utf8>>), - {ok, ErrorAtom} = gleam@atom:from_string(<<"error"/utf8>>), - gleam@should:equal( - gleam@dynamic:field( - gleam@dynamic:from(gleam@map:insert(gleam@map:new(), OkAtom, 1)), - OkAtom - ), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:equal( - gleam@dynamic:field( - gleam@dynamic:from( - gleam@map:insert( - gleam@map:insert(gleam@map:new(), OkAtom, 3), - ErrorAtom, - 1 - ) - ), - OkAtom - ), - {ok, gleam@dynamic:from(3)} - ), - gleam@should:be_error( - gleam@dynamic:field(gleam@dynamic:from(gleam@map:new()), OkAtom) - ), - gleam@should:be_error(gleam@dynamic:field(gleam@dynamic:from(1), OkAtom)), - gleam@should:be_error(gleam@dynamic:field(gleam@dynamic:from([]), [])). - -element_test() -> - {ok, OkAtom} = gleam@atom:from_string(<<"ok"/utf8>>), - OkOneTuple = {OkAtom, 1}, - gleam@should:equal( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 0), - {ok, gleam@dynamic:from(OkAtom)} - ), - gleam@should:equal( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 1), - {ok, gleam@dynamic:from(1)} - ), - gleam@should:be_error( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), 2) - ), - gleam@should:be_error( - gleam@dynamic:element(gleam@dynamic:from(OkOneTuple), -1) - ), - gleam@should:be_error(gleam@dynamic:element(gleam@dynamic:from(1), 0)), - gleam@should:be_error( - gleam@dynamic:element( - gleam@dynamic:from(gleam@map:insert(gleam@map:new(), 1, OkAtom)), - 0 - ) - ). diff --git a/gen/test/gleam@float_test.erl b/gen/test/gleam@float_test.erl deleted file mode 100644 index 4f809c6..0000000 --- a/gen/test/gleam@float_test.erl +++ /dev/null @@ -1,71 +0,0 @@ --module(gleam@float_test). --compile(no_auto_import). - --export([parse_test/0, to_string_test/0, compare_test/0, ceiling_test/0, floor_test/0, round_test/0, truncate_test/0, min_test/0, max_test/0]). - -parse_test() -> - gleam@should:equal(gleam@float:parse(<<"1.23"/utf8>>), {ok, 1.23}), - gleam@should:equal(gleam@float:parse(<<"5.0"/utf8>>), {ok, 5.0}), - gleam@should:equal( - gleam@float:parse(<<"0.123456789"/utf8>>), - {ok, 0.123456789} - ), - gleam@should:equal(gleam@float:parse(<<""/utf8>>), {error, nil}), - gleam@should:equal(gleam@float:parse(<<"what"/utf8>>), {error, nil}), - gleam@should:equal(gleam@float:parse(<<"1"/utf8>>), {error, nil}). - -to_string_test() -> - gleam@should:equal(gleam@float:to_string(123.0), <<"123.0"/utf8>>), - gleam@should:equal(gleam@float:to_string(-8.1), <<"-8.1"/utf8>>). - -compare_test() -> - gleam@should:equal(gleam@float:compare(0.0, 0.0), eq), - gleam@should:equal(gleam@float:compare(0.1, 0.1), eq), - gleam@should:equal(gleam@float:compare(0.0, 0.1), lt), - gleam@should:equal(gleam@float:compare(-2.0, -1.9), lt), - gleam@should:equal(gleam@float:compare(2.0, 1.9), gt), - gleam@should:equal(gleam@float:compare(-1.9, -2.0), gt). - -ceiling_test() -> - gleam@should:equal(gleam@float:ceiling(8.1), 9.0), - gleam@should:equal(gleam@float:ceiling(-8.1), -8.0), - gleam@should:equal(gleam@float:ceiling(-8.0), -8.0). - -floor_test() -> - gleam@should:equal(gleam@float:floor(8.1), 8.0), - gleam@should:equal(gleam@float:floor(-8.1), -9.0), - gleam@should:equal(gleam@float:floor(-8.0), -8.0). - -round_test() -> - gleam@should:equal(gleam@float:round(8.1), 8), - gleam@should:equal(gleam@float:round(8.4), 8), - gleam@should:equal(gleam@float:round(8.499), 8), - gleam@should:equal(gleam@float:round(8.5), 9), - gleam@should:equal(gleam@float:round(-8.1), -8), - gleam@should:equal(gleam@float:round(-7.5), -8). - -truncate_test() -> - gleam@should:equal(gleam@float:truncate(8.1), 8), - gleam@should:equal(gleam@float:truncate(8.4), 8), - gleam@should:equal(gleam@float:truncate(8.499), 8), - gleam@should:equal(gleam@float:truncate(8.5), 8), - gleam@should:equal(gleam@float:truncate(-8.1), -8), - gleam@should:equal(gleam@float:truncate(-7.5), -7). - -min_test() -> - gleam@should:equal(gleam@float:min(0.0, 0.0), 0.0), - gleam@should:equal(gleam@float:min(0.3, 1.5), 0.3), - gleam@should:equal(gleam@float:min(1.0, 0.0), 0.0), - gleam@should:equal(gleam@float:min(-1.7, 2.5), -1.7), - gleam@should:equal(gleam@float:min(-2.2, -2.2), -2.2), - gleam@should:equal(gleam@float:min(-1.0, -1.0), -1.0), - gleam@should:equal(gleam@float:min(-1.1, -1.0), -1.1). - -max_test() -> - gleam@should:equal(gleam@float:max(0.0, 0.0), 0.0), - gleam@should:equal(gleam@float:max(0.3, 1.5), 1.5), - gleam@should:equal(gleam@float:max(1.0, 0.0), 1.0), - gleam@should:equal(gleam@float:max(-1.7, 2.5), 2.5), - gleam@should:equal(gleam@float:max(-2.2, -2.2), -2.2), - gleam@should:equal(gleam@float:max(-1.0, -1.0), -1.0), - gleam@should:equal(gleam@float:max(-1.1, -1.0), -1.0). diff --git a/gen/test/gleam@function_test.erl b/gen/test/gleam@function_test.erl deleted file mode 100644 index d85bce1..0000000 --- a/gen/test/gleam@function_test.erl +++ /dev/null @@ -1,50 +0,0 @@ --module(gleam@function_test). --compile(no_auto_import). - --export([compose_test/0, flip_test/0, identity_test/0]). - -compose_test() -> - AddTwo = fun(Int) -> Int + 2 end, - AddThree = fun(Int1) -> Int1 + 3 end, - AddFive = gleam@function:compose(AddTwo, AddThree), - gleam@should:equal(AddFive(1), 6), - HeadToString = gleam@function:compose( - gleam@function:compose( - fun gleam@list:head/1, - fun(GleamCaptureVariable) -> - gleam@result:unwrap(GleamCaptureVariable, 0) - end - ), - fun gleam@int:to_string/1 - ), - gleam@should:equal(HeadToString([1]), <<"1"/utf8>>), - gleam@should:equal(HeadToString([]), <<"0"/utf8>>). - -flip_test() -> - Fun = fun(S, I) -> - gleam@string:append( - gleam@string:append( - gleam@string:append( - gleam@string:append(<<"String: '"/utf8>>, S), - <<"', Int: '"/utf8>> - ), - gleam@int:to_string(I) - ), - <<"'"/utf8>> - ) - end, - FlippedFun = gleam@function:flip(Fun), - gleam@should:equal( - Fun(<<"Bob"/utf8>>, 1), - <<"String: 'Bob', Int: '1'"/utf8>> - ), - gleam@should:equal( - FlippedFun(2, <<"Alice"/utf8>>), - <<"String: 'Alice', Int: '2'"/utf8>> - ). - -identity_test() -> - gleam@should:equal(gleam@function:identity(1), 1), - gleam@should:equal(gleam@function:identity(<<""/utf8>>), <<""/utf8>>), - gleam@should:equal(gleam@function:identity([]), []), - gleam@should:equal(gleam@function:identity({1, 2.0}), {1, 2.0}). diff --git a/gen/test/gleam@int_test.erl b/gen/test/gleam@int_test.erl deleted file mode 100644 index a81c427..0000000 --- a/gen/test/gleam@int_test.erl +++ /dev/null @@ -1,63 +0,0 @@ --module(gleam@int_test). --compile(no_auto_import). - --export([to_string_test/0, parse_test/0, to_base_string_test/0, compare_test/0, min_test/0, max_test/0, is_even_test/0, is_odd_test/0]). - -to_string_test() -> - gleam@should:equal(gleam@int:to_string(123), <<"123"/utf8>>), - gleam@should:equal(gleam@int:to_string(-123), <<"-123"/utf8>>), - gleam@should:equal(gleam@int:to_string(123), <<"123"/utf8>>). - -parse_test() -> - gleam@should:equal(gleam@int:parse(<<"123"/utf8>>), {ok, 123}), - gleam@should:equal(gleam@int:parse(<<"-123"/utf8>>), {ok, -123}), - gleam@should:equal(gleam@int:parse(<<"0123"/utf8>>), {ok, 123}), - gleam@should:equal(gleam@int:parse(<<""/utf8>>), {error, nil}), - gleam@should:equal(gleam@int:parse(<<"what"/utf8>>), {error, nil}), - gleam@should:equal(gleam@int:parse(<<"1.23"/utf8>>), {error, nil}). - -to_base_string_test() -> - gleam@should:equal(gleam@int:to_base_string(100, 16), <<"64"/utf8>>), - gleam@should:equal(gleam@int:to_base_string(-100, 16), <<"-64"/utf8>>). - -compare_test() -> - gleam@should:equal(gleam@int:compare(0, 0), eq), - gleam@should:equal(gleam@int:compare(1, 1), eq), - gleam@should:equal(gleam@int:compare(0, 1), lt), - gleam@should:equal(gleam@int:compare(-2, -1), lt), - gleam@should:equal(gleam@int:compare(2, 1), gt), - gleam@should:equal(gleam@int:compare(-1, -2), gt). - -min_test() -> - gleam@should:equal(gleam@int:min(0, 0), 0), - gleam@should:equal(gleam@int:min(0, 1), 0), - gleam@should:equal(gleam@int:min(1, 0), 0), - gleam@should:equal(gleam@int:min(-1, 2), -1), - gleam@should:equal(gleam@int:min(2, -2), -2), - gleam@should:equal(gleam@int:min(-1, -1), -1). - -max_test() -> - gleam@should:equal(gleam@int:max(0, 0), 0), - gleam@should:equal(gleam@int:max(0, 1), 1), - gleam@should:equal(gleam@int:max(1, 0), 1), - gleam@should:equal(gleam@int:max(-1, 2), 2), - gleam@should:equal(gleam@int:max(2, -2), 2), - gleam@should:equal(gleam@int:max(-1, -1), -1). - -is_even_test() -> - gleam@should:be_true(gleam@int:is_even(0)), - gleam@should:be_true(gleam@int:is_even(2)), - gleam@should:be_true(gleam@int:is_even(-2)), - gleam@should:be_true(gleam@int:is_even(10006)), - gleam@should:be_false(gleam@int:is_even(1)), - gleam@should:be_false(gleam@int:is_even(-3)), - gleam@should:be_false(gleam@int:is_even(10005)). - -is_odd_test() -> - gleam@should:be_false(gleam@int:is_odd(0)), - gleam@should:be_false(gleam@int:is_odd(2)), - gleam@should:be_false(gleam@int:is_odd(-2)), - gleam@should:be_false(gleam@int:is_odd(10006)), - gleam@should:be_true(gleam@int:is_odd(1)), - gleam@should:be_true(gleam@int:is_odd(-3)), - gleam@should:be_true(gleam@int:is_odd(10005)). diff --git a/gen/test/gleam@iodata_test.erl b/gen/test/gleam@iodata_test.erl deleted file mode 100644 index 3df2cbb..0000000 --- a/gen/test/gleam@iodata_test.erl +++ /dev/null @@ -1,103 +0,0 @@ --module(gleam@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 = gleam@iodata:prepend( - gleam@iodata:append( - gleam@iodata:append(gleam@iodata:new(<<"ello"/utf8>>), <<","/utf8>>), - <<" world!"/utf8>> - ), - <<"H"/utf8>> - ), - gleam@should:equal(gleam@iodata:to_string(Data), <<"Hello, world!"/utf8>>), - gleam@should:equal(gleam@iodata:byte_size(Data), 13), - Data1 = gleam@iodata:prepend_iodata( - gleam@iodata:append_iodata( - gleam@iodata:append_iodata( - gleam@iodata:new(<<"ello"/utf8>>), - gleam@iodata:new(<<","/utf8>>) - ), - gleam@iodata:concat( - [gleam@iodata:new(<<" wo"/utf8>>), - gleam@iodata:new(<<"rld!"/utf8>>)] - ) - ), - gleam@iodata:new(<<"H"/utf8>>) - ), - gleam@should:equal(gleam@iodata:to_string(Data1), <<"Hello, world!"/utf8>>), - gleam@should:equal(gleam@iodata:byte_size(Data1), 13). - -lowercase_test() -> - gleam@should:equal( - gleam@iodata:to_string( - gleam@iodata:lowercase( - gleam@iodata:from_strings([<<"Gleam"/utf8>>, <<"Gleam"/utf8>>]) - ) - ), - <<"gleamgleam"/utf8>> - ). - -uppercase_test() -> - gleam@should:equal( - gleam@iodata:to_string( - gleam@iodata:uppercase( - gleam@iodata:from_strings([<<"Gleam"/utf8>>, <<"Gleam"/utf8>>]) - ) - ), - <<"GLEAMGLEAM"/utf8>> - ). - -split_test() -> - gleam@should:equal( - gleam@iodata:split( - gleam@iodata:new(<<"Gleam,Erlang,Elixir"/utf8>>), - <<","/utf8>> - ), - [gleam@iodata:new(<<"Gleam"/utf8>>), - gleam@iodata:new(<<"Erlang"/utf8>>), - gleam@iodata:new(<<"Elixir"/utf8>>)] - ), - gleam@should:equal( - gleam@iodata:split( - gleam@iodata:from_strings( - [<<"Gleam, Erl"/utf8>>, <<"ang,Elixir"/utf8>>] - ), - <<", "/utf8>> - ), - [gleam@iodata:new(<<"Gleam"/utf8>>), - gleam@iodata:from_strings([<<"Erl"/utf8>>, <<"ang,Elixir"/utf8>>])] - ). - -is_equal_test() -> - gleam@should:be_true( - gleam@iodata:is_equal( - gleam@iodata:new(<<"12"/utf8>>), - gleam@iodata:from_strings([<<"1"/utf8>>, <<"2"/utf8>>]) - ) - ), - gleam@should:be_true( - gleam@iodata:is_equal( - gleam@iodata:new(<<"12"/utf8>>), - gleam@iodata:new(<<"12"/utf8>>) - ) - ), - gleam@should:be_false( - gleam@iodata:is_equal( - gleam@iodata:new(<<"12"/utf8>>), - gleam@iodata:new(<<"2"/utf8>>) - ) - ). - -is_empty_test() -> - gleam@should:be_true(gleam@iodata:is_empty(gleam@iodata:new(<<""/utf8>>))), - gleam@should:be_false( - gleam@iodata:is_empty(gleam@iodata:new(<<"12"/utf8>>)) - ), - gleam@should:be_true(gleam@iodata:is_empty(gleam@iodata:from_strings([]))), - gleam@should:be_true( - gleam@iodata:is_empty( - gleam@iodata:from_strings([<<""/utf8>>, <<""/utf8>>]) - ) - ). diff --git a/gen/test/gleam@list_test.erl b/gen/test/gleam@list_test.erl deleted file mode 100644 index a49a26f..0000000 --- a/gen/test/gleam@list_test.erl +++ /dev/null @@ -1,291 +0,0 @@ --module(gleam@list_test). --compile(no_auto_import). - --export([length_test/0, reverse_test/0, is_empty_test/0, contains_test/0, head_test/0, tail_test/0, filter_test/0, map_test/0, traverse_test/0, drop_test/0, take_test/0, new_test/0, append_test/0, flatten_test/0, fold_test/0, fold_right_test/0, find_map_test/0, find_test/0, all_test/0, any_test/0, zip_test/0, strict_zip_test/0, intersperse_test/0, at_test/0, unique_test/0, sort_test/0, index_map_test/0, range_test/0, repeat_test/0, split_test/0, split_while_test/0, key_find_test/0]). - -length_test() -> - gleam@should:equal(gleam@list:length([]), 0), - gleam@should:equal(gleam@list:length([1]), 1), - gleam@should:equal(gleam@list:length([1, 1]), 2), - gleam@should:equal(gleam@list:length([1, 1, 1]), 3). - -reverse_test() -> - gleam@should:equal(gleam@list:reverse([]), []), - gleam@should:equal(gleam@list:reverse([1, 2, 3, 4, 5]), [5, 4, 3, 2, 1]). - -is_empty_test() -> - gleam@should:be_true(gleam@list:is_empty([])), - gleam@should:be_false(gleam@list:is_empty([1])). - -contains_test() -> - gleam@should:be_true(gleam@list:contains([0, 4, 5, 1], 1)), - gleam@should:be_false(gleam@list:contains([0, 4, 5, 7], 1)), - gleam@should:be_false(gleam@list:contains([], 1)). - -head_test() -> - gleam@should:equal(gleam@list:head([0, 4, 5, 7]), {ok, 0}), - gleam@should:equal(gleam@list:head([]), {error, nil}). - -tail_test() -> - gleam@should:equal(gleam@list:tail([0, 4, 5, 7]), {ok, [4, 5, 7]}), - gleam@should:equal(gleam@list:tail([0]), {ok, []}), - gleam@should:equal(gleam@list:tail([]), {error, nil}). - -filter_test() -> - gleam@should:equal(gleam@list:filter([], fun(_) -> true end), []), - gleam@should:equal( - gleam@list:filter([0, 4, 5, 7, 3], fun(_) -> true end), - [0, 4, 5, 7, 3] - ), - gleam@should:equal( - gleam@list:filter([0, 4, 5, 7, 3], fun(X) -> X > 4 end), - [5, 7] - ), - gleam@should:equal( - gleam@list:filter([0, 4, 5, 7, 3], fun(X1) -> X1 < 4 end), - [0, 3] - ). - -map_test() -> - gleam@should:equal(gleam@list:map([], fun(X) -> X * 2 end), []), - gleam@should:equal( - gleam@list:map([0, 4, 5, 7, 3], fun(X1) -> X1 * 2 end), - [0, 8, 10, 14, 6] - ). - -traverse_test() -> - Fun = fun(X) -> case X =:= 6 orelse X =:= 5 orelse X =:= 4 of - true -> - {ok, X * 2}; - - false -> - {error, X} - end end, - gleam@should:equal( - gleam@list:traverse([5, 6, 5, 6], Fun), - {ok, [10, 12, 10, 12]} - ), - gleam@should:equal(gleam@list:traverse([4, 6, 5, 7, 3], Fun), {error, 7}). - -drop_test() -> - gleam@should:equal(gleam@list:drop([], 5), []), - gleam@should:equal(gleam@list:drop([1, 2, 3, 4, 5, 6, 7, 8], 5), [6, 7, 8]). - -take_test() -> - gleam@should:equal(gleam@list:take([], 5), []), - gleam@should:equal( - gleam@list:take([1, 2, 3, 4, 5, 6, 7, 8], 5), - [1, 2, 3, 4, 5] - ). - -new_test() -> - gleam@should:equal(gleam@list:new(), []). - -append_test() -> - gleam@should:equal(gleam@list:append([1], [2, 3]), [1, 2, 3]). - -flatten_test() -> - gleam@should:equal(gleam@list:flatten([]), []), - gleam@should:equal(gleam@list:flatten([[]]), []), - gleam@should:equal(gleam@list:flatten([[], [], []]), []), - gleam@should:equal(gleam@list:flatten([[1, 2], [], [3, 4]]), [1, 2, 3, 4]). - -fold_test() -> - gleam@should:equal( - gleam@list:fold([1, 2, 3], [], fun(X, Acc) -> [X | Acc] end), - [3, 2, 1] - ). - -fold_right_test() -> - gleam@should:equal( - gleam@list:fold_right([1, 2, 3], [], fun(X, Acc) -> [X | Acc] end), - [1, 2, 3] - ). - -find_map_test() -> - F = fun(X) -> case X of - 2 -> - {ok, 4}; - - _ -> - {error, nil} - end end, - gleam@should:equal(gleam@list:find_map([1, 2, 3], F), {ok, 4}), - gleam@should:equal(gleam@list:find_map([1, 3, 2], F), {ok, 4}), - gleam@should:equal(gleam@list:find_map([1, 3], F), {error, nil}). - -find_test() -> - IsTwo = fun(X) -> X =:= 2 end, - gleam@should:equal(gleam@list:find([1, 2, 3], IsTwo), {ok, 2}), - gleam@should:equal(gleam@list:find([1, 3, 2], IsTwo), {ok, 2}), - gleam@should:equal(gleam@list:find([1, 3], IsTwo), {error, nil}). - -all_test() -> - gleam@should:equal( - gleam@list:all([1, 2, 3, 4, 5], fun(X) -> X > 0 end), - true - ), - gleam@should:equal( - gleam@list:all([1, 2, 3, 4, 5], fun(X1) -> X1 < 0 end), - false - ), - gleam@should:equal(gleam@list:all([], fun(_) -> false end), true). - -any_test() -> - gleam@should:equal( - gleam@list:any([1, 2, 3, 4, 5], fun(X) -> X =:= 2 end), - true - ), - gleam@should:equal( - gleam@list:any([1, 2, 3, 4, 5], fun(X1) -> X1 < 0 end), - false - ), - gleam@should:equal(gleam@list:any([], fun(_) -> false end), false). - -zip_test() -> - gleam@should:equal(gleam@list:zip([], [1, 2, 3]), []), - gleam@should:equal(gleam@list:zip([1, 2], []), []), - gleam@should:equal( - gleam@list:zip([1, 2, 3], [4, 5, 6]), - [{1, 4}, {2, 5}, {3, 6}] - ), - gleam@should:equal(gleam@list:zip([5, 6], [1, 2, 3]), [{5, 1}, {6, 2}]), - gleam@should:equal(gleam@list:zip([5, 6, 7], [1, 2]), [{5, 1}, {6, 2}]). - -strict_zip_test() -> - gleam@should:equal( - gleam@list:strict_zip([], [1, 2, 3]), - {error, length_mismatch} - ), - gleam@should:equal( - gleam@list:strict_zip([1, 2], []), - {error, length_mismatch} - ), - gleam@should:equal( - gleam@list:strict_zip([1, 2, 3], [4, 5, 6]), - {ok, [{1, 4}, {2, 5}, {3, 6}]} - ), - gleam@should:equal( - gleam@list:strict_zip([5, 6], [1, 2, 3]), - {error, length_mismatch} - ), - gleam@should:equal( - gleam@list:strict_zip([5, 6, 7], [1, 2]), - {error, length_mismatch} - ). - -intersperse_test() -> - gleam@should:equal(gleam@list:intersperse([1, 2, 3], 4), [1, 4, 2, 4, 3]), - gleam@should:equal(gleam@list:intersperse([], 2), []). - -at_test() -> - gleam@should:equal(gleam@list:at([1, 2, 3], 2), {ok, 3}), - gleam@should:equal(gleam@list:at([1, 2, 3], 5), {error, nil}), - gleam@should:equal(gleam@list:at([], 0), {error, nil}), - gleam@should:equal(gleam@list:at([1, 2, 3, 4, 5, 6], -1), {error, nil}). - -unique_test() -> - gleam@should:equal( - gleam@list:unique([1, 1, 2, 3, 4, 4, 4, 5, 6]), - [1, 2, 3, 4, 5, 6] - ), - gleam@should:equal( - gleam@list:unique([7, 1, 45, 6, 2, 47, 2, 7, 5]), - [7, 1, 45, 6, 2, 47, 5] - ), - gleam@should:equal(gleam@list:unique([3, 4, 5]), [3, 4, 5]), - gleam@should:equal(gleam@list:unique([]), []). - -sort_test() -> - gleam@should:equal( - gleam@list:sort([4, 3, 6, 5, 4], fun gleam@int:compare/2), - [3, 4, 4, 5, 6] - ), - gleam@should:equal( - gleam@list:sort([4, 3, 6, 5, 4, 1], fun gleam@int:compare/2), - [1, 3, 4, 4, 5, 6] - ), - gleam@should:equal( - gleam@list:sort([4.1, 3.1, 6.1, 5.1, 4.1], fun gleam@float:compare/2), - [3.1, 4.1, 4.1, 5.1, 6.1] - ), - gleam@should:equal(gleam@list:sort([], fun gleam@int:compare/2), []). - -index_map_test() -> - gleam@should:equal( - gleam@list:index_map([3, 4, 5], fun(I, X) -> {I, X} end), - [{0, 3}, {1, 4}, {2, 5}] - ), - F = fun(I1, X1) -> gleam@string:append(X1, gleam@int:to_string(I1)) end, - gleam@should:equal( - gleam@list:index_map([<<"a"/utf8>>, <<"b"/utf8>>, <<"c"/utf8>>], F), - [<<"a0"/utf8>>, <<"b1"/utf8>>, <<"c2"/utf8>>] - ). - -range_test() -> - gleam@should:equal(gleam@list:range(0, 0), []), - gleam@should:equal(gleam@list:range(1, 1), []), - gleam@should:equal(gleam@list:range(-1, -1), []), - gleam@should:equal(gleam@list:range(0, 1), [0]), - gleam@should:equal(gleam@list:range(0, 5), [0, 1, 2, 3, 4]), - gleam@should:equal(gleam@list:range(1, -5), [1, 0, -1, -2, -3, -4]). - -repeat_test() -> - gleam@should:equal(gleam@list:repeat(1, -10), []), - gleam@should:equal(gleam@list:repeat(1, 0), []), - gleam@should:equal(gleam@list:repeat(2, 3), [2, 2, 2]), - gleam@should:equal( - gleam@list:repeat(<<"x"/utf8>>, 5), - [<<"x"/utf8>>, <<"x"/utf8>>, <<"x"/utf8>>, <<"x"/utf8>>, <<"x"/utf8>>] - ). - -split_test() -> - gleam@should:equal(gleam@list:split([], 0), {[], []}), - gleam@should:equal( - gleam@list:split([0, 1, 2, 3, 4], 0), - {[], [0, 1, 2, 3, 4]} - ), - gleam@should:equal( - gleam@list:split([0, 1, 2, 3, 4], -2), - {[], [0, 1, 2, 3, 4]} - ), - gleam@should:equal( - gleam@list:split([0, 1, 2, 3, 4], 1), - {[0], [1, 2, 3, 4]} - ), - gleam@should:equal( - gleam@list:split([0, 1, 2, 3, 4], 3), - {[0, 1, 2], [3, 4]} - ), - gleam@should:equal( - gleam@list:split([0, 1, 2, 3, 4], 9), - {[0, 1, 2, 3, 4], []} - ). - -split_while_test() -> - gleam@should:equal( - gleam@list:split_while([], fun(X) -> X =< 5 end), - {[], []} - ), - gleam@should:equal( - gleam@list:split_while([1, 2, 3, 4, 5], fun(X1) -> X1 =< 5 end), - {[1, 2, 3, 4, 5], []} - ), - gleam@should:equal( - gleam@list:split_while([1, 2, 3, 4, 5], fun(X2) -> X2 =:= 2 end), - {[], [1, 2, 3, 4, 5]} - ), - gleam@should:equal( - gleam@list:split_while([1, 2, 3, 4, 5], fun(X3) -> X3 =< 3 end), - {[1, 2, 3], [4, 5]} - ), - gleam@should:equal( - gleam@list:split_while([1, 2, 3, 4, 5], fun(X4) -> X4 =< -3 end), - {[], [1, 2, 3, 4, 5]} - ). - -key_find_test() -> - Proplist = [{0, <<"1"/utf8>>}, {1, <<"2"/utf8>>}], - gleam@should:equal(gleam@list:key_find(Proplist, 0), {ok, <<"1"/utf8>>}), - gleam@should:equal(gleam@list:key_find(Proplist, 1), {ok, <<"2"/utf8>>}), - gleam@should:equal(gleam@list:key_find(Proplist, 2), {error, nil}). diff --git a/gen/test/gleam@map_test.erl b/gen/test/gleam@map_test.erl deleted file mode 100644 index 4729edf..0000000 --- a/gen/test/gleam@map_test.erl +++ /dev/null @@ -1,191 +0,0 @@ --module(gleam@map_test). --compile(no_auto_import). - --export([from_list_test/0, has_key_test/0, new_test/0, get_test/0, insert_test/0, map_values_test/0, keys_test/0, values_test/0, take_test/0, drop_test/0, merge_test/0, delete_test/0, update_test/0, fold_test/0]). - -from_list_test() -> - gleam@should:equal( - gleam@map:size(gleam@map:from_list([{4, 0}, {1, 0}])), - 2 - ), - gleam@should:equal( - gleam@map:from_list([{1, 0}, {1, 1}]), - gleam@map:from_list([{1, 1}]) - ). - -has_key_test() -> - gleam@should:be_false(gleam@map:has_key(gleam@map:from_list([]), 1)), - gleam@should:be_true(gleam@map:has_key(gleam@map:from_list([{1, 0}]), 1)), - gleam@should:be_true( - gleam@map:has_key(gleam@map:from_list([{4, 0}, {1, 0}]), 1) - ), - gleam@should:be_false( - gleam@map:has_key(gleam@map:from_list([{4, 0}, {1, 0}]), 0) - ). - -new_test() -> - gleam@should:equal(gleam@map:size(gleam@map:new()), 0), - gleam@should:equal(gleam@map:to_list(gleam@map:new()), []). - -get_test() -> - Proplist = [{4, 0}, {1, 1}], - M = gleam@map:from_list(Proplist), - gleam@should:equal(gleam@map:get(M, 4), {ok, 0}), - gleam@should:equal(gleam@map:get(M, 1), {ok, 1}), - gleam@should:equal(gleam@map:get(M, 2), {error, nil}). - -insert_test() -> - gleam@should:equal( - gleam@map:insert( - gleam@map:insert( - gleam@map:insert(gleam@map:new(), <<"a"/utf8>>, 0), - <<"b"/utf8>>, - 1 - ), - <<"c"/utf8>>, - 2 - ), - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ) - ). - -map_values_test() -> - gleam@should:equal( - gleam@map:map_values( - gleam@map:from_list([{1, 0}, {2, 1}, {3, 2}]), - fun(K, V) -> K + V end - ), - gleam@map:from_list([{1, 1}, {2, 3}, {3, 5}]) - ). - -keys_test() -> - gleam@should:equal( - gleam@map:keys( - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ) - ), - [<<"a"/utf8>>, <<"b"/utf8>>, <<"c"/utf8>>] - ). - -values_test() -> - gleam@should:equal( - gleam@map:values( - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ) - ), - [0, 1, 2] - ). - -take_test() -> - gleam@should:equal( - gleam@map:take( - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ), - [<<"a"/utf8>>, <<"b"/utf8>>, <<"d"/utf8>>] - ), - gleam@map:from_list([{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}]) - ). - -drop_test() -> - gleam@should:equal( - gleam@map:drop( - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ), - [<<"a"/utf8>>, <<"b"/utf8>>, <<"d"/utf8>>] - ), - gleam@map:from_list([{<<"c"/utf8>>, 2}]) - ). - -merge_test() -> - A = gleam@map:from_list( - [{<<"a"/utf8>>, 2}, {<<"c"/utf8>>, 4}, {<<"d"/utf8>>, 3}] - ), - B = gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ), - gleam@should:equal( - gleam@map:merge(A, B), - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, - {<<"b"/utf8>>, 1}, - {<<"c"/utf8>>, 2}, - {<<"d"/utf8>>, 3}] - ) - ), - gleam@should:equal( - gleam@map:merge(B, A), - gleam@map:from_list( - [{<<"a"/utf8>>, 2}, - {<<"b"/utf8>>, 1}, - {<<"c"/utf8>>, 4}, - {<<"d"/utf8>>, 3}] - ) - ). - -delete_test() -> - gleam@should:equal( - gleam@map:delete( - gleam@map:delete( - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ), - <<"a"/utf8>> - ), - <<"d"/utf8>> - ), - gleam@map:from_list([{<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}]) - ). - -update_test() -> - Dict = gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ), - IncOrZero = fun(X) -> case X of - {ok, I} -> - I + 1; - - {error, _} -> - 0 - end end, - gleam@should:equal( - gleam@map:update(Dict, <<"a"/utf8>>, IncOrZero), - gleam@map:from_list( - [{<<"a"/utf8>>, 1}, {<<"b"/utf8>>, 1}, {<<"c"/utf8>>, 2}] - ) - ), - gleam@should:equal( - gleam@map:update(Dict, <<"b"/utf8>>, IncOrZero), - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, {<<"b"/utf8>>, 2}, {<<"c"/utf8>>, 2}] - ) - ), - gleam@should:equal( - gleam@map:update(Dict, <<"z"/utf8>>, IncOrZero), - gleam@map:from_list( - [{<<"a"/utf8>>, 0}, - {<<"b"/utf8>>, 1}, - {<<"c"/utf8>>, 2}, - {<<"z"/utf8>>, 0}] - ) - ). - -fold_test() -> - Dict = gleam@map:from_list( - [{<<"a"/utf8>>, 0}, - {<<"b"/utf8>>, 1}, - {<<"c"/utf8>>, 2}, - {<<"d"/utf8>>, 3}] - ), - Add = fun(_, V, Acc) -> V + Acc end, - gleam@should:equal(gleam@map:fold(Dict, 0, Add), 6), - Concat = fun(K, _, Acc1) -> gleam@string:append(Acc1, K) end, - gleam@should:equal( - gleam@map:fold(Dict, <<""/utf8>>, Concat), - <<"abcd"/utf8>> - ), - gleam@should:equal(gleam@map:fold(gleam@map:from_list([]), 0, Add), 0). diff --git a/gen/test/gleam@order_test.erl b/gen/test/gleam@order_test.erl deleted file mode 100644 index 771e72c..0000000 --- a/gen/test/gleam@order_test.erl +++ /dev/null @@ -1,47 +0,0 @@ --module(gleam@order_test). --compile(no_auto_import). - --export([reverse_test/0, to_int_test/0, compare_test/0, max_test/0, min_test/0]). - -reverse_test() -> - gleam@should:equal(gleam@order:reverse(lt), gt), - gleam@should:equal(gleam@order:reverse(eq), eq), - gleam@should:equal(gleam@order:reverse(gt), lt). - -to_int_test() -> - gleam@should:equal(gleam@order:to_int(lt), -1), - gleam@should:equal(gleam@order:to_int(eq), 0), - gleam@should:equal(gleam@order:to_int(gt), 1). - -compare_test() -> - gleam@should:equal(gleam@order:compare(lt, lt), eq), - gleam@should:equal(gleam@order:compare(lt, eq), lt), - gleam@should:equal(gleam@order:compare(lt, gt), lt), - gleam@should:equal(gleam@order:compare(eq, lt), gt), - gleam@should:equal(gleam@order:compare(eq, eq), eq), - gleam@should:equal(gleam@order:compare(eq, gt), lt), - gleam@should:equal(gleam@order:compare(gt, lt), gt), - gleam@should:equal(gleam@order:compare(gt, eq), gt), - gleam@should:equal(gleam@order:compare(gt, gt), eq). - -max_test() -> - gleam@should:equal(gleam@order:max(lt, lt), lt), - gleam@should:equal(gleam@order:max(lt, eq), eq), - gleam@should:equal(gleam@order:max(lt, gt), gt), - gleam@should:equal(gleam@order:max(eq, lt), eq), - gleam@should:equal(gleam@order:max(eq, eq), eq), - gleam@should:equal(gleam@order:max(eq, gt), gt), - gleam@should:equal(gleam@order:max(gt, lt), gt), - gleam@should:equal(gleam@order:max(gt, eq), gt), - gleam@should:equal(gleam@order:max(gt, gt), gt). - -min_test() -> - gleam@should:equal(gleam@order:min(lt, lt), lt), - gleam@should:equal(gleam@order:min(lt, eq), lt), - gleam@should:equal(gleam@order:min(lt, gt), lt), - gleam@should:equal(gleam@order:min(eq, lt), lt), - gleam@should:equal(gleam@order:min(eq, eq), eq), - gleam@should:equal(gleam@order:min(eq, gt), eq), - gleam@should:equal(gleam@order:min(gt, lt), lt), - gleam@should:equal(gleam@order:min(gt, eq), eq), - gleam@should:equal(gleam@order:min(gt, gt), gt). diff --git a/gen/test/gleam@pair_test.erl b/gen/test/gleam@pair_test.erl deleted file mode 100644 index d073e19..0000000 --- a/gen/test/gleam@pair_test.erl +++ /dev/null @@ -1,29 +0,0 @@ --module(gleam@pair_test). --compile(no_auto_import). - --export([first_test/0, second_test/0, swap_test/0, map_first_test/0, map_second_test/0]). - -first_test() -> - gleam@should:equal(gleam@pair:first({1, 2}), 1), - gleam@should:equal(gleam@pair:first({<<"abc"/utf8>>, []}), <<"abc"/utf8>>). - -second_test() -> - gleam@should:equal(gleam@pair:second({1, 2}), 2), - gleam@should:equal(gleam@pair:second({<<"abc"/utf8>>, []}), []). - -swap_test() -> - gleam@should:equal(gleam@pair:swap({1, <<"2"/utf8>>}), {<<"2"/utf8>>, 1}). - -map_first_test() -> - Inc = fun(A) -> A + 1 end, - gleam@should:equal(gleam@pair:map_first({1, 2}, Inc), {2, 2}), - gleam@should:equal(gleam@pair:map_first({8, 2}, Inc), {9, 2}), - gleam@should:equal(gleam@pair:map_first({0, -2}, Inc), {1, -2}), - gleam@should:equal(gleam@pair:map_first({-10, 20}, Inc), {-9, 20}). - -map_second_test() -> - Dec = fun(A) -> A - 1 end, - gleam@should:equal(gleam@pair:map_second({1, 2}, Dec), {1, 1}), - gleam@should:equal(gleam@pair:map_second({8, 2}, Dec), {8, 1}), - gleam@should:equal(gleam@pair:map_second({0, -2}, Dec), {0, -3}), - gleam@should:equal(gleam@pair:map_second({-10, 20}, Dec), {-10, 19}). diff --git a/gen/test/gleam@result_test.erl b/gen/test/gleam@result_test.erl deleted file mode 100644 index b40d41d..0000000 --- a/gen/test/gleam@result_test.erl +++ /dev/null @@ -1,67 +0,0 @@ --module(gleam@result_test). --compile(no_auto_import). - --export([is_ok_test/0, is_error_test/0, map_test/0, map_error_test/0, flatten_test/0, then_test/0, unwrap_test/0]). - -is_ok_test() -> - gleam@should:be_true(gleam@result:is_ok({ok, 1})), - gleam@should:be_false(gleam@result:is_ok({error, 1})). - -is_error_test() -> - gleam@should:be_false(gleam@result:is_error({ok, 1})), - gleam@should:be_true(gleam@result:is_error({error, 1})). - -map_test() -> - gleam@should:equal(gleam@result:map({ok, 1}, fun(X) -> X + 1 end), {ok, 2}), - gleam@should:equal( - gleam@result:map({ok, 1}, fun(_) -> <<"2"/utf8>> end), - {ok, <<"2"/utf8>>} - ), - gleam@should:equal( - gleam@result:map({error, 1}, fun(X1) -> X1 + 1 end), - {error, 1} - ). - -map_error_test() -> - gleam@should:equal( - gleam@result:map_error({ok, 1}, fun(X) -> X + 1 end), - {ok, 1} - ), - gleam@should:equal( - gleam@result:map_error( - {error, 1}, - fun(X1) -> {<<"ok"/utf8>>, X1 + 1} end - ), - {error, {<<"ok"/utf8>>, 2}} - ). - -flatten_test() -> - gleam@should:equal(gleam@result:flatten({ok, {ok, 1}}), {ok, 1}), - gleam@should:equal(gleam@result:flatten({ok, {error, 1}}), {error, 1}), - gleam@should:equal(gleam@result:flatten({error, 1}), {error, 1}), - gleam@should:equal( - gleam@result:flatten({error, {error, 1}}), - {error, {error, 1}} - ). - -then_test() -> - gleam@should:equal( - gleam@result:then({error, 1}, fun(X) -> {ok, X + 1} end), - {error, 1} - ), - gleam@should:equal( - gleam@result:then({ok, 1}, fun(X1) -> {ok, X1 + 1} end), - {ok, 2} - ), - gleam@should:equal( - gleam@result:then({ok, 1}, fun(_) -> {ok, <<"type change"/utf8>>} end), - {ok, <<"type change"/utf8>>} - ), - gleam@should:equal( - gleam@result:then({ok, 1}, fun(_) -> {error, 1} end), - {error, 1} - ). - -unwrap_test() -> - gleam@should:equal(gleam@result:unwrap({ok, 1}, 50), 1), - gleam@should:equal(gleam@result:unwrap({error, <<"nope"/utf8>>}, 50), 50). diff --git a/gen/test/gleam@string_test.erl b/gen/test/gleam@string_test.erl deleted file mode 100644 index 54e517f..0000000 --- a/gen/test/gleam@string_test.erl +++ /dev/null @@ -1,212 +0,0 @@ --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, compare_test/0, contains_test/0, concat_test/0, repeat_test/0, join_test/0, trim_test/0, trim_left_test/0, trim_right_test/0, starts_with_test/0, ends_with_test/0, slice_test/0, pad_left_test/0, pad_right_test/0]). - -length_test() -> - gleam@should:equal(gleam@string:length(<<"ß↑e̊"/utf8>>), 3), - gleam@should:equal(gleam@string:length(<<"Gleam"/utf8>>), 5), - gleam@should:equal(gleam@string:length(<<""/utf8>>), 0). - -lowercase_test() -> - gleam@should:equal( - gleam@string:lowercase(<<"Gleam"/utf8>>), - <<"gleam"/utf8>> - ). - -uppercase_test() -> - gleam@should:equal( - gleam@string:uppercase(<<"Gleam"/utf8>>), - <<"GLEAM"/utf8>> - ). - -reverse_test() -> - gleam@should:equal( - gleam@string:reverse(<<"Gleam"/utf8>>), - <<"maelG"/utf8>> - ). - -split_test() -> - gleam@should:equal( - gleam@string:split(<<"Gleam,Erlang,Elixir"/utf8>>, <<","/utf8>>), - [<<"Gleam"/utf8>>, <<"Erlang"/utf8>>, <<"Elixir"/utf8>>] - ), - gleam@should:equal( - gleam@string:split(<<"Gleam, Erlang,Elixir"/utf8>>, <<", "/utf8>>), - [<<"Gleam"/utf8>>, <<"Erlang,Elixir"/utf8>>] - ). - -replace_test() -> - gleam@should:equal( - gleam@string:replace( - <<"Gleam,Erlang,Elixir"/utf8>>, - <<","/utf8>>, - <<"++"/utf8>> - ), - <<"Gleam++Erlang++Elixir"/utf8>> - ). - -append_test() -> - gleam@should:equal( - gleam@string:append(<<"Test"/utf8>>, <<" Me"/utf8>>), - <<"Test Me"/utf8>> - ). - -compare_test() -> - gleam@should:equal(gleam@string:compare(<<""/utf8>>, <<""/utf8>>), eq), - gleam@should:equal(gleam@string:compare(<<"a"/utf8>>, <<""/utf8>>), gt), - gleam@should:equal(gleam@string:compare(<<"a"/utf8>>, <<"A"/utf8>>), gt), - gleam@should:equal(gleam@string:compare(<<"A"/utf8>>, <<"B"/utf8>>), lt), - gleam@should:equal(gleam@string:compare(<<"t"/utf8>>, <<"ABC"/utf8>>), gt). - -contains_test() -> - gleam@should:equal( - gleam@string:contains(<<"gleam"/utf8>>, <<"ea"/utf8>>), - true - ), - gleam@should:equal( - gleam@string:contains(<<"gleam"/utf8>>, <<"x"/utf8>>), - false - ), - gleam@should:equal( - gleam@string:contains(<<"bellwether"/utf8>>, <<"bell"/utf8>>), - true - ). - -concat_test() -> - gleam@should:equal( - gleam@string:concat( - [<<"Hello"/utf8>>, <<", "/utf8>>, <<"world!"/utf8>>] - ), - <<"Hello, world!"/utf8>> - ). - -repeat_test() -> - gleam@should:equal( - gleam@string:repeat(<<"hi"/utf8>>, 3), - <<"hihihi"/utf8>> - ), - gleam@should:equal(gleam@string:repeat(<<"hi"/utf8>>, 0), <<""/utf8>>), - gleam@should:equal(gleam@string:repeat(<<"hi"/utf8>>, -1), <<""/utf8>>). - -join_test() -> - gleam@should:equal( - gleam@string:join([<<"Hello"/utf8>>, <<"world!"/utf8>>], <<", "/utf8>>), - <<"Hello, world!"/utf8>> - ), - gleam@should:equal( - gleam@string:join([<<"Hello"/utf8>>, <<"world!"/utf8>>], <<"-"/utf8>>), - <<"Hello-world!"/utf8>> - ). - -trim_test() -> - gleam@should:equal( - gleam@string:trim(<<" hats \n"/utf8>>), - <<"hats"/utf8>> - ). - -trim_left_test() -> - gleam@should:equal( - gleam@string:trim_left(<<" hats \n"/utf8>>), - <<"hats \n"/utf8>> - ). - -trim_right_test() -> - gleam@should:equal( - gleam@string:trim_right(<<" hats \n"/utf8>>), - <<" hats"/utf8>> - ). - -starts_with_test() -> - gleam@should:equal( - gleam@string:starts_with(<<"theory"/utf8>>, <<""/utf8>>), - true - ), - gleam@should:equal( - gleam@string:starts_with(<<"theory"/utf8>>, <<"the"/utf8>>), - true - ), - gleam@should:equal( - gleam@string:starts_with(<<"theory"/utf8>>, <<"ory"/utf8>>), - false - ), - gleam@should:equal( - gleam@string:starts_with(<<"theory"/utf8>>, <<"theory2"/utf8>>), - false - ). - -ends_with_test() -> - gleam@should:equal( - gleam@string:ends_with(<<"theory"/utf8>>, <<""/utf8>>), - true - ), - gleam@should:equal( - gleam@string:ends_with(<<"theory"/utf8>>, <<"ory"/utf8>>), - true - ), - gleam@should:equal( - gleam@string:ends_with(<<"theory"/utf8>>, <<"the"/utf8>>), - false - ), - gleam@should:equal( - gleam@string:ends_with(<<"theory"/utf8>>, <<"theory2"/utf8>>), - false - ). - -slice_test() -> - gleam@should:equal( - gleam@string:slice(<<"gleam"/utf8>>, 1, 2), - <<"le"/utf8>> - ), - gleam@should:equal( - gleam@string:slice(<<"gleam"/utf8>>, 1, 10), - <<"leam"/utf8>> - ), - gleam@should:equal( - gleam@string:slice(<<"gleam"/utf8>>, 10, 3), - <<""/utf8>> - ), - gleam@should:equal( - gleam@string:slice(<<"gleam"/utf8>>, -2, 2), - <<"am"/utf8>> - ), - gleam@should:equal( - gleam@string:slice(<<"gleam"/utf8>>, -12, 2), - <<""/utf8>> - ). - -pad_left_test() -> - gleam@should:equal( - gleam@string:pad_left(<<"121"/utf8>>, 5, <<"."/utf8>>), - <<"..121"/utf8>> - ), - gleam@should:equal( - gleam@string:pad_left(<<"121"/utf8>>, 3, <<"."/utf8>>), - <<"121"/utf8>> - ), - gleam@should:equal( - gleam@string:pad_left(<<"121"/utf8>>, 2, <<"."/utf8>>), - <<"121"/utf8>> - ), - gleam@should:equal( - gleam@string:pad_left(<<"121"/utf8>>, 5, <<"XY"/utf8>>), - <<"XYXY121"/utf8>> - ). - -pad_right_test() -> - gleam@should:equal( - gleam@string:pad_right(<<"121"/utf8>>, 5, <<"."/utf8>>), - <<"121.."/utf8>> - ), - gleam@should:equal( - gleam@string:pad_right(<<"121"/utf8>>, 3, <<"."/utf8>>), - <<"121"/utf8>> - ), - gleam@should:equal( - gleam@string:pad_right(<<"121"/utf8>>, 2, <<"."/utf8>>), - <<"121"/utf8>> - ), - gleam@should:equal( - gleam@string:pad_right(<<"121"/utf8>>, 5, <<"XY"/utf8>>), - <<"121XYXY"/utf8>> - ). |