aboutsummaryrefslogtreecommitdiff
path: root/gen/tuple.erl
diff options
context:
space:
mode:
Diffstat (limited to 'gen/tuple.erl')
-rw-r--r--gen/tuple.erl23
1 files changed, 23 insertions, 0 deletions
diff --git a/gen/tuple.erl b/gen/tuple.erl
new file mode 100644
index 0000000..270bb29
--- /dev/null
+++ b/gen/tuple.erl
@@ -0,0 +1,23 @@
+-module(tuple).
+-compile(no_auto_import).
+-include_lib("eunit/include/eunit.hrl").
+
+-export([first/1, second/1]).
+
+first(Tup) ->
+ {A, _} = Tup,
+ A.
+
+-ifdef(TEST).
+first_test() ->
+ expect:equal(first({1, 2}), 1).
+-endif.
+
+second(Tup) ->
+ {_, A} = Tup,
+ A.
+
+-ifdef(TEST).
+second_test() ->
+ expect:equal(second({1, 2}), 2).
+-endif.