aboutsummaryrefslogtreecommitdiff
path: root/src/result.gleam
diff options
context:
space:
mode:
Diffstat (limited to 'src/result.gleam')
-rw-r--r--src/result.gleam79
1 files changed, 0 insertions, 79 deletions
diff --git a/src/result.gleam b/src/result.gleam
index a2bd330..133d9d5 100644
--- a/src/result.gleam
+++ b/src/result.gleam
@@ -1,5 +1,3 @@
-import expect
-
// Result represents the result of something that may succeed or fail.
// `Ok` means it was successful, `Error` means it failed.
@@ -10,11 +8,6 @@ pub fn is_ok(result) {
}
}
-test is_ok {
- is_ok(Ok(1)) |> expect:true
- is_ok(Error(1)) |> expect:false
-}
-
pub fn is_error(result) {
case result {
| Ok(_) -> False
@@ -22,14 +15,6 @@ pub fn is_error(result) {
}
}
-test is_error {
- is_error(Ok(1))
- |> expect:false
-
- is_error(Error(1))
- |> expect:true
-}
-
pub fn map(result, fun) {
case result {
| Ok(x) -> Ok(fun(x))
@@ -37,20 +22,6 @@ pub fn map(result, fun) {
}
}
-test map {
- Ok(1)
- |> map(_, fn(x) { x + 1 })
- |> expect:equal(_, Ok(2))
-
- Ok(1)
- |> map(_, fn(_) { "2" })
- |> expect:equal(_, Ok("2"))
-
- Error(1)
- |> map(_, fn(x) { x + 1 })
- |> expect:equal(_, Error(1))
-}
-
pub fn map_error(result, fun) {
case result {
| Ok(_) -> result
@@ -58,16 +29,6 @@ pub fn map_error(result, fun) {
}
}
-test map_error {
- Ok(1)
- |> map_error(_, fn(x) { x + 1 })
- |> expect:equal(_, Ok(1))
-
- Error(1)
- |> map_error(_, fn(x) { x + 1 })
- |> expect:equal(_, Error(2))
-}
-
pub fn flatten(result) {
case result {
| Ok(x) -> x
@@ -75,20 +36,6 @@ pub fn flatten(result) {
}
}
-test flatten {
- flatten(Ok(Ok(1)))
- |> expect:equal(_, Ok(1))
-
- flatten(Ok(Error(1)))
- |> expect:equal(_, Error(1))
-
- flatten(Error(1))
- |> expect:equal(_, Error(1))
-
- flatten(Error(Error(1)))
- |> expect:equal(_, Error(Error(1)))
-}
-
pub fn then(result, fun) {
case result {
| Ok(x) -> fun(x)
@@ -96,35 +43,9 @@ pub fn then(result, fun) {
}
}
-test then {
- Error(1)
- |> then(_, fn(x) { Ok(x + 1) })
- |> expect:equal(_, Error(1))
-
- Ok(1)
- |> then(_, fn(x) { Ok(x + 1) })
- |> expect:equal(_, Ok(2))
-
- Ok(1)
- |> then(_, fn(_) { Ok("type change") })
- |> expect:equal(_, Ok("type change"))
-
- Ok(1)
- |> then(_, fn(_) { Error(1) })
- |> expect:equal(_, Error(1))
-}
-
pub fn unwrap(result, default) {
case result {
| Ok(v) -> v
| Error(_) -> default
}
}
-
-test unwrap {
- unwrap(Ok(1), 50)
- |> expect:equal(_, 1)
-
- unwrap(Error("nope"), 50)
- |> expect:equal(_, 50)
-}