aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/gleam/pair_test.gleam8
-rw-r--r--test/gleam/triple_test.gleam32
2 files changed, 40 insertions, 0 deletions
diff --git a/test/gleam/pair_test.gleam b/test/gleam/pair_test.gleam
index d8cb324..54a12af 100644
--- a/test/gleam/pair_test.gleam
+++ b/test/gleam/pair_test.gleam
@@ -5,12 +5,20 @@ pub fn first_test() {
pair.Pair(1, 2)
|> pair.first
|> expect.equal(_, 1)
+
+ pair.Pair("abc", [])
+ |> pair.first
+ |> expect.equal(_, "abc")
}
pub fn second_test() {
pair.Pair(1, 2)
|> pair.second
|> expect.equal(_, 2)
+
+ pair.Pair("abc", [])
+ |> pair.second
+ |> expect.equal(_,[])
}
pub fn swap_test() {
diff --git a/test/gleam/triple_test.gleam b/test/gleam/triple_test.gleam
new file mode 100644
index 0000000..1684cca
--- /dev/null
+++ b/test/gleam/triple_test.gleam
@@ -0,0 +1,32 @@
+import gleam/expect
+import gleam/triple
+
+pub fn first_test() {
+ triple.Triple(1, 2, 3)
+ |> triple.first
+ |> expect.equal(_, 1)
+
+ triple.Triple([], "abc", 3)
+ |> triple.first
+ |> expect.equal(_, [])
+}
+
+pub fn second_test() {
+ triple.Triple(1, 2, 3)
+ |> triple.second
+ |> expect.equal(_, 2)
+
+ triple.Triple([], "abc", 3)
+ |> triple.second
+ |> expect.equal(_, "abc")
+}
+
+pub fn third_test() {
+ triple.Triple(1, 2, 3)
+ |> triple.third
+ |> expect.equal(_, 3)
+
+ triple.Triple([], "abc", 3)
+ |> triple.third
+ |> expect.equal(_, 3)
+}