diff options
Diffstat (limited to 'gen/test')
| -rw-r--r-- | gen/test/gleam@pair_test.erl | 6 | ||||
| -rw-r--r-- | gen/test/gleam@triple_test.erl | 16 |
2 files changed, 20 insertions, 2 deletions
diff --git a/gen/test/gleam@pair_test.erl b/gen/test/gleam@pair_test.erl index 63a329a..775f161 100644 --- a/gen/test/gleam@pair_test.erl +++ b/gen/test/gleam@pair_test.erl @@ -4,10 +4,12 @@ -export([first_test/0, second_test/0, swap_test/0]). first_test() -> - gleam@expect:equal(gleam@pair:first({1, 2}), 1). + gleam@expect:equal(gleam@pair:first({1, 2}), 1), + gleam@expect:equal(gleam@pair:first({<<"abc">>, []}), <<"abc">>). second_test() -> - gleam@expect:equal(gleam@pair:second({1, 2}), 2). + gleam@expect:equal(gleam@pair:second({1, 2}), 2), + gleam@expect:equal(gleam@pair:second({<<"abc">>, []}), []). swap_test() -> gleam@expect:equal(gleam@pair:swap({1, <<"2">>}), {<<"2">>, 1}). diff --git a/gen/test/gleam@triple_test.erl b/gen/test/gleam@triple_test.erl new file mode 100644 index 0000000..b143e31 --- /dev/null +++ b/gen/test/gleam@triple_test.erl @@ -0,0 +1,16 @@ +-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). |