From: Siraaj Khandkar Date: Thu, 11 Dec 2014 20:58:37 +0000 (-0500) Subject: Test hope_result:lift_exn/1 X-Git-Tag: 1.1.0~1 X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=371e63336e774865c4746b0a9a849eb44f10f98a;p=hope.git Test hope_result:lift_exn/1 --- diff --git a/test/hope_result_SUITE.erl b/test/hope_result_SUITE.erl index a49d451..9587345 100644 --- a/test/hope_result_SUITE.erl +++ b/test/hope_result_SUITE.erl @@ -16,11 +16,13 @@ [ t_pipe_ok/1 , t_pipe_error/1 , t_hope_result_specs/1 + , t_lift_exn/1 ]). -define(GROUP_PIPE, result_pipe). -define(GROUP_SPEC, result_spec). +-define(GROUP_LIFT, result_lift_exn). %% ============================================================================ @@ -30,6 +32,7 @@ all() -> [ {group, ?GROUP_PIPE} , {group, ?GROUP_SPEC} + , {group, ?GROUP_LIFT} ]. groups() -> @@ -40,11 +43,17 @@ groups() -> SpecTests = [ t_hope_result_specs ], + LiftTests = + [ t_lift_exn + ], Properties = [parallel], [ {?GROUP_PIPE, Properties, PipeTests} , {?GROUP_SPEC, Properties, SpecTests} + , {?GROUP_LIFT, Properties, LiftTests} ]. +init_per_group(?GROUP_LIFT, Cfg) -> + Cfg; init_per_group(?GROUP_SPEC, Cfg) -> Cfg; init_per_group(?GROUP_PIPE, Cfg) -> @@ -55,6 +64,8 @@ init_per_group(?GROUP_PIPE, Cfg) -> ], hope_kv_list:set(Cfg, steps, Steps). +end_per_group(?GROUP_LIFT, _Cfg) -> + ok; end_per_group(?GROUP_SPEC, _Cfg) -> ok; end_per_group(?GROUP_PIPE, _Cfg) -> @@ -75,3 +86,10 @@ t_pipe_error(Cfg) -> t_hope_result_specs(_) -> [] = proper:check_specs(hope_result). + +t_lift_exn(_Cfg) -> + Class = throw, + Reason = foofoo, + F = fun (ok) -> apply(erlang, Class, [Reason]) end, + G = hope_result:lift_exn(F), + {error, {Class, Reason}} = G(ok).