diff options
Diffstat (limited to 'src/result.gleam')
-rw-r--r-- | src/result.gleam | 79 |
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) -} |