X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=test%2Fhope_result_SUITE.erl;h=390f28c076b001efb1de982e83587e30285440cb;hp=9587345099ebc34521933ef37b2cbd0bc0e5ddf7;hb=b79afea06befb5309f4a3f0388e587e17c484b83;hpb=371e63336e774865c4746b0a9a849eb44f10f98a

diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl
index 9587345..390f28c 100644
--- 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).