diff options
Diffstat (limited to 'gen/test')
| -rw-r--r-- | gen/test/gleam@any_test.erl | 32 | ||||
| -rw-r--r-- | gen/test/gleam@triple_test.erl | 16 |
2 files changed, 1 insertions, 47 deletions
diff --git a/gen/test/gleam@any_test.erl b/gen/test/gleam@any_test.erl index ed58ebf..b7e472d 100644 --- a/gen/test/gleam@any_test.erl +++ b/gen/test/gleam@any_test.erl @@ -1,7 +1,7 @@ -module(gleam@any_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, pair_test/0, field_test/0]). +-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]). string_test() -> gleam@expect:equal(gleam@any:string(gleam@any:from(<<"">>)), {ok, <<"">>}), @@ -117,36 +117,6 @@ list_test() -> ) ). -pair_test() -> - gleam@expect:equal( - gleam@any:pair(gleam@any:from({1, []})), - {ok, {gleam@any:from(1), gleam@any:from([])}} - ), - gleam@expect:equal( - gleam@any:pair(gleam@any:from({<<"ok">>, <<"ok">>})), - {ok, {gleam@any:from(<<"ok">>), gleam@any:from(<<"ok">>)}} - ), - gleam@expect:equal( - gleam@result:then( - gleam@result:then( - gleam@any:pair(gleam@any:from({1, 2.0})), - fun(X) -> - gleam@result:map( - gleam@any:int(gleam@pair:first(X)), - fun(F) -> {F, gleam@pair:second(X)} end - ) - end - ), - fun(X) -> - gleam@result:map( - gleam@any:float(gleam@pair:second(X)), - fun(F) -> {gleam@pair:first(X), F} end - ) - end - ), - {ok, {1, 2.0}} - ). - field_test() -> {ok, OkAtom} = gleam@atom:from_string(<<"ok">>), {ok, ErrorAtom} = gleam@atom:from_string(<<"error">>), diff --git a/gen/test/gleam@triple_test.erl b/gen/test/gleam@triple_test.erl deleted file mode 100644 index b143e31..0000000 --- a/gen/test/gleam@triple_test.erl +++ /dev/null @@ -1,16 +0,0 @@ --module(gleam@triple_test). --compile(no_auto_import). - --export([first_test/0, second_test/0, third_test/0]). - -first_test() -> - gleam@expect:equal(gleam@triple:first({1, 2, 3}), 1), - gleam@expect:equal(gleam@triple:first({[], <<"abc">>, 3}), []). - -second_test() -> - gleam@expect:equal(gleam@triple:second({1, 2, 3}), 2), - gleam@expect:equal(gleam@triple:second({[], <<"abc">>, 3}), <<"abc">>). - -third_test() -> - gleam@expect:equal(gleam@triple:third({1, 2, 3}), 3), - gleam@expect:equal(gleam@triple:third({[], <<"abc">>, 3}), 3). |