aboutsummaryrefslogtreecommitdiff
path: root/src/tuple.gleam
diff options
context:
space:
mode:
Diffstat (limited to 'src/tuple.gleam')
-rw-r--r--src/tuple.gleam44
1 files changed, 0 insertions, 44 deletions
diff --git a/src/tuple.gleam b/src/tuple.gleam
index 418c5bc..41902db 100644
--- a/src/tuple.gleam
+++ b/src/tuple.gleam
@@ -1,52 +1,24 @@
-import expect
-import result
import list
pub fn new(a, b) {
{a, b}
}
-test new {
- new(1, 2)
- |> expect:equal(_, {1, 2})
-
- new(2, "3")
- |> expect:equal(_, {2, "3"})
-}
-
pub fn first(tup) {
let {a, _} = tup
a
}
-test first {
- {1, 2}
- |> first
- |> expect:equal(_, 1)
-}
-
pub fn second(tup) {
let {_, a} = tup
a
}
-test second {
- {1, 2}
- |> second
- |> expect:equal(_, 2)
-}
-
pub fn swap(tup) {
let {a, b} = tup
{b, a}
}
-test swap {
- {1, "2"}
- |> swap
- |> expect:equal(_, {"2", 1})
-}
-
pub fn fetch(haystack, needle) {
list:find(haystack, fn(tuple) {
case first(tuple) == needle {
@@ -55,19 +27,3 @@ pub fn fetch(haystack, needle) {
}
})
}
-
-test fetch {
- let proplist = [{0, "1"}, {1, "2"}]
-
- proplist
- |> fetch(_, 0)
- |> expect:equal(_, Ok("1"))
-
- proplist
- |> fetch(_, 1)
- |> expect:equal(_, Ok("2"))
-
- proplist
- |> fetch(_, 2)
- |> expect:is_error
-}