From 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Wed, 29 May 2019 21:02:55 +0100
Subject: Enable namespaced modules

---
 test/std/tuple_test.gleam | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 test/std/tuple_test.gleam

(limited to 'test/std/tuple_test.gleam')

diff --git a/test/std/tuple_test.gleam b/test/std/tuple_test.gleam
new file mode 100644
index 0000000..31f1179
--- /dev/null
+++ b/test/std/tuple_test.gleam
@@ -0,0 +1,44 @@
+import std/expect
+import std/tuple
+
+pub fn new_test() {
+  tuple:new(1, 2)
+  |> expect:equal(_, {1, 2})
+
+  tuple:new(2, "3")
+  |> expect:equal(_, {2, "3"})
+}
+
+pub fn first_test() {
+  {1, 2}
+  |> tuple:first
+  |> expect:equal(_, 1)
+}
+
+pub fn second_test() {
+  {1, 2}
+  |> tuple:second
+  |> expect:equal(_, 2)
+}
+
+pub fn swap_test() {
+  {1, "2"}
+  |> tuple:swap
+  |> expect:equal(_, {"2", 1})
+}
+
+pub fn fetch_test() {
+  let proplist = [{0, "1"}, {1, "2"}]
+
+  proplist
+  |> tuple:fetch(_, 0)
+  |> expect:equal(_, Ok("1"))
+
+  proplist
+  |> tuple:fetch(_, 1)
+  |> expect:equal(_, Ok("2"))
+
+  proplist
+  |> tuple:fetch(_, 2)
+  |> expect:is_error
+}
-- 
cgit v1.2.3