diff options
Diffstat (limited to 'gen/test/gleam@pair_test.erl')
| -rw-r--r-- | gen/test/gleam@pair_test.erl | 29 |
1 files changed, 0 insertions, 29 deletions
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}). |