home
/
code
/
hope.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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,
t_lift_exn(_Cfg) ->
Class = throw,
Reason = foofoo,
+ Label = bar,
F = fun (ok) -> apply(erlang, Class, [Reason]) end,
G = hope_result:lift_exn(F),
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).
This page took
0.022606 seconds
and
4
git commands to generate.