From 2cbe6bd721ae2be68c29e4de71db51bafc3478f8 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Mon, 18 Mar 2019 01:12:09 +0000
Subject: tuple module, decode lists

---
 gen/tuple.erl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 gen/tuple.erl

(limited to 'gen/tuple.erl')

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.
-- 
cgit v1.2.3