stdlib: Split out tests

1 files changed, 44 insertions, 0 deletions

diff --git a/test/tuple_test.gleam b/test/tuple_test.gleam
new file mode 100644
index 0000000..1c0463a
--- /dev/null
+++ b/test/tuple_test.gleam
@@ -0,0 +1,44 @@
+import expect
+import 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
+}