From e005df1fc88f957d2537453ccd8863eca324c5bd Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sat, 21 Jan 2023 12:27:50 +0000
Subject: result.guard

---
 test/gleam/result_test.gleam | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'test')

diff --git a/test/gleam/result_test.gleam b/test/gleam/result_test.gleam
index 9075977..dc50dd8 100644
--- a/test/gleam/result_test.gleam
+++ b/test/gleam/result_test.gleam
@@ -205,3 +205,17 @@ pub fn values_test() {
   result.values([Ok(1), Error(""), Ok(3)])
   |> should.equal([1, 3])
 }
+
+pub fn guard_test() {
+  assert Ok(1) = {
+    let x = 1
+    use <- result.guard(True, or: "nope")
+    Ok(x)
+  }
+
+  assert Error("nope") = {
+    let x = 1
+    use <- result.guard(False, or: "nope")
+    Ok(x)
+  }
+}
-- 
cgit v1.2.3