diff options
| author | Brett Snyder <bsnyder@digitalocean.com> | 2019-10-02 10:49:43 -0500 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-10-03 11:38:43 +0100 |
| commit | cf7831f278423bab72f5d9433771e5a16ce44cac (patch) | |
| tree | 1dbbb96cd4f040c85a343dc7244365dcf87f1c30 /gen/test/gleam@pair_test.erl | |
| parent | 7677e9e96d38dffcf230891b7c74991aa7f16df5 (diff) | |
| download | gleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.tar.gz gleam_stdlib-cf7831f278423bab72f5d9433771e5a16ce44cac.zip | |
add pair:map_first and pair:map_second
Diffstat (limited to 'gen/test/gleam@pair_test.erl')
| -rw-r--r-- | gen/test/gleam@pair_test.erl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gen/test/gleam@pair_test.erl b/gen/test/gleam@pair_test.erl index 775f161..6a2c856 100644 --- a/gen/test/gleam@pair_test.erl +++ b/gen/test/gleam@pair_test.erl @@ -1,7 +1,7 @@ -module(gleam@pair_test). -compile(no_auto_import). --export([first_test/0, second_test/0, swap_test/0]). +-export([first_test/0, second_test/0, swap_test/0, map_first_test/0, map_second_test/0]). first_test() -> gleam@expect:equal(gleam@pair:first({1, 2}), 1), @@ -13,3 +13,17 @@ second_test() -> swap_test() -> gleam@expect:equal(gleam@pair:swap({1, <<"2">>}), {<<"2">>, 1}). + +map_first_test() -> + Inc = fun(A) -> A + 1 end, + gleam@expect:equal(gleam@pair:map_first({1, 2}, Inc), {2, 2}), + gleam@expect:equal(gleam@pair:map_first({8, 2}, Inc), {9, 2}), + gleam@expect:equal(gleam@pair:map_first({0, -2}, Inc), {1, -2}), + gleam@expect:equal(gleam@pair:map_first({-10, 20}, Inc), {-9, 20}). + +map_second_test() -> + Dec = fun(A) -> A - 1 end, + gleam@expect:equal(gleam@pair:map_second({1, 2}, Dec), {1, 1}), + gleam@expect:equal(gleam@pair:map_second({8, 2}, Dec), {8, 1}), + gleam@expect:equal(gleam@pair:map_second({0, -2}, Dec), {0, -3}), + gleam@expect:equal(gleam@pair:map_second({-10, 20}, Dec), {-10, 19}). |