stdlib: Split out tests

1 files changed, 28 insertions, 0 deletions

diff --git a/gen/src/tuple.erl b/gen/src/tuple.erl
new file mode 100644
index 0000000..fe3ce03
--- /dev/null
+++ b/gen/src/tuple.erl
@@ -0,0 +1,28 @@
+-module(tuple).
+-compile(no_auto_import).
+
+-export([new/2, first/1, second/1, swap/1, fetch/2]).
+
+new(A, B) ->
+    {A, B}.
+
+first(Tup) ->
+    {A, _} = Tup,
+    A.
+
+second(Tup) ->
+    {_, A} = Tup,
+    A.
+
+swap(Tup) ->
+    {A, B} = Tup,
+    {B, A}.
+
+fetch(Haystack, Needle) ->
+    list:find(Haystack, fun(Tuple) -> case first(Tuple) =:= Needle of
+                      true ->
+                          {ok, second(Tuple)};
+
+                      false ->
+                          {error, []}
+                  end end).