diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/gleam/pair_test.gleam | 8 | ||||
-rw-r--r-- | test/gleam/triple_test.gleam | 32 |
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) +} |