diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2020-02-19 10:05:24 +0100 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2020-02-19 10:05:24 +0100 |
commit | 468b9a20b7f9d9585df750987b52e9e8f942f0ff (patch) | |
tree | cd4458e6cc0d89f3d8f12e38168d42a8c188a38e /lib/hipe/test | |
parent | a4e8656d1aa4bde0bbfab6a52585add5d7951bd1 (diff) | |
parent | 9c36438036bcabf853d52b36939f8af87ab01033 (diff) | |
download | erlang-468b9a20b7f9d9585df750987b52e9e8f942f0ff.tar.gz |
Merge branch 'maint'
* maint:
cover: Suppress compilation warnings when instrumenting andalso/orelse
Eliminate crash in compilation of native code
Remove package support from ms_transform
Diffstat (limited to 'lib/hipe/test')
-rw-r--r-- | lib/hipe/test/basic_SUITE_data/basic_exceptions.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/hipe/test/basic_SUITE_data/basic_exceptions.erl b/lib/hipe/test/basic_SUITE_data/basic_exceptions.erl index ba9c03d4ba..9f79231e5a 100644 --- a/lib/hipe/test/basic_SUITE_data/basic_exceptions.erl +++ b/lib/hipe/test/basic_SUITE_data/basic_exceptions.erl @@ -25,6 +25,7 @@ test() -> ok = test_guard_bif(), ok = test_eclectic(), ok = test_raise(), + ok = test_effect(), ok. %%-------------------------------------------------------------------- @@ -675,4 +676,18 @@ do_test_raise_3(Expr) -> erlang:raise(exit, {exception,C,E}, Stk) end. +test_effect() -> + ok = effect_try(2), + {'EXIT',{badarith,_}} = (catch effect_try(bad)), + ok. + +effect_try(X) -> + try + X + 1 + catch + C:E:Stk -> + erlang:raise(C, E, Stk) + end, + ok. + id(I) -> I. |