From ac354a3495feeea5efbeaea7d3d82020e66ee0c4 Mon Sep 17 00:00:00 2001 From: Alice Dee Date: Tue, 17 Sep 2019 13:55:00 +0100 Subject: Module triple added with Type Triple. --- gen/test/gleam@pair_test.erl | 6 ++++-- gen/test/gleam@triple_test.erl | 16 ++++++++++++++++ 2 files changed, 20 insertions(+), 2 deletions(-) create mode 100644 gen/test/gleam@triple_test.erl (limited to 'gen/test') 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). -- cgit v1.2.3