Add labeled result lifting.

[hope.git] / test / hope_result_SUITE.erl

diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl
index 9587345..390f28c 100644 (file)
--- a/test/hope_result_SUITE.erl
+++ b/test/hope_result_SUITE.erl
@@ -90,6 +90,9 @@ t_hope_result_specs(_) ->
 t_lift_exn(_Cfg) ->
     Class = throw,
     Reason = foofoo,
+    Label = bar,
     F = fun (ok) -> apply(erlang, Class, [Reason]) end,
     G = hope_result:lift_exn(F),
-    {error, {Class, Reason}} = G(ok).
+    H = hope_result:lift_exn(F, Label),
+    {error, {Class, Reason}} = G(ok),
+    {error, {Label, {Class, Reason}}} = H(ok).