One more test.

2024-11-05 18:21:40 +03:00 · 2020-04-29 14:01:41 +02:00 · 2020-04-29 14:01:41 +02:00 · 8f08f794b0
commit 8f08f794b0
parent 7b65d888f3
1 changed files with 9 additions and 0 deletions
--- a/test/result.carp
+++ b/test/result.carp
@ -129,5 +129,14 @@
                &(Maybe.Nothing)
                &(to-maybe (the (Result Int String) (Error @"error")))
                "to-maybe works with Error"
+                )
+
+  (assert-equal test
+                123
+                (match (the (Result (Result Int String) String) (Success (Success 123)))
+                  (Success (Error _)) 0
+                  (Error _) 0
+                  (Success (Success x)) x)
+                "matching on nested results"
  )
 )