diff options
author | Alice Dee <alice.dee@guardian.co.uk> | 2019-09-17 13:55:00 +0100 |
---|---|---|
committer | Louis Pilfold <louis@lpil.uk> | 2019-09-17 13:58:30 +0100 |
commit | ac354a3495feeea5efbeaea7d3d82020e66ee0c4 (patch) | |
tree | 842d2798f5b5ac76b8756b26072b9929e6aa3aae /gen | |
parent | 070df38c58651ca199c2c3cc787482c75b591a55 (diff) | |
download | gleam_stdlib-ac354a3495feeea5efbeaea7d3d82020e66ee0c4.tar.gz gleam_stdlib-ac354a3495feeea5efbeaea7d3d82020e66ee0c4.zip |
Module triple added with Type Triple.
Diffstat (limited to 'gen')
-rw-r--r-- | gen/src/gleam@triple.erl | 16 | ||||
-rw-r--r-- | gen/test/gleam@pair_test.erl | 6 | ||||
-rw-r--r-- | gen/test/gleam@triple_test.erl | 16 |
3 files changed, 36 insertions, 2 deletions
diff --git a/gen/src/gleam@triple.erl b/gen/src/gleam@triple.erl new file mode 100644 index 0000000..62a32da --- /dev/null +++ b/gen/src/gleam@triple.erl @@ -0,0 +1,16 @@ +-module(gleam@triple). +-compile(no_auto_import). + +-export([first/1, second/1, third/1]). + +first(Trip) -> + {A, _, _} = Trip, + A. + +second(Trip) -> + {_, A, _} = Trip, + A. + +third(Trip) -> + {_, _, A} = Trip, + A. 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). |