From 8cfa606f3834cf7d05f5011bc68295a9d84263dc Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 14 Apr 2019 13:03:24 +0000
Subject: stdlib: Split out tests

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

(limited to 'gen/test/tuple_test.erl')

diff --git a/gen/test/tuple_test.erl b/gen/test/tuple_test.erl
new file mode 100644
index 0000000..2f6a1ce
--- /dev/null
+++ b/gen/test/tuple_test.erl
@@ -0,0 +1,23 @@
+-module(tuple_test).
+-compile(no_auto_import).
+
+-export([new_test/0, first_test/0, second_test/0, swap_test/0, fetch_test/0]).
+
+new_test() ->
+    expect:equal(tuple:new(1, 2), {1, 2}),
+    expect:equal(tuple:new(2, <<"3">>), {2, <<"3">>}).
+
+first_test() ->
+    expect:equal(tuple:first({1, 2}), 1).
+
+second_test() ->
+    expect:equal(tuple:second({1, 2}), 2).
+
+swap_test() ->
+    expect:equal(tuple:swap({1, <<"2">>}), {<<"2">>, 1}).
+
+fetch_test() ->
+    Proplist = [{0, <<"1">>}, {1, <<"2">>}],
+    expect:equal(tuple:fetch(Proplist, 0), {ok, <<"1">>}),
+    expect:equal(tuple:fetch(Proplist, 1), {ok, <<"2">>}),
+    expect:is_error(tuple:fetch(Proplist, 2)).
-- 
cgit v1.2.3