aboutsummaryrefslogtreecommitdiff
path: root/gen
diff options
context:
space:
mode:
authorAlice Dee <alice.dee@guardian.co.uk>2019-09-17 13:55:00 +0100
committerLouis Pilfold <louis@lpil.uk>2019-09-17 13:58:30 +0100
commitac354a3495feeea5efbeaea7d3d82020e66ee0c4 (patch)
tree842d2798f5b5ac76b8756b26072b9929e6aa3aae /gen
parent070df38c58651ca199c2c3cc787482c75b591a55 (diff)
downloadgleam_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.erl16
-rw-r--r--gen/test/gleam@pair_test.erl6
-rw-r--r--gen/test/gleam@triple_test.erl16
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).