diff options
author | Björn Gustavsson <[email protected]> | 2017-05-04 15:35:06 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2017-05-05 09:59:28 +0200 |
commit | 6962098f2ff7dcff5ce46364898815c685d0f0b8 (patch) | |
tree | 49251d9de51c5df81c062eeccbb0cd0bc57a1aad /erts/emulator/test/hipe_SUITE_data/trycatch_1.erl | |
parent | 4261ee2caae48ad7e215144c5abbfd34fffb35e5 (diff) | |
download | otp-6962098f2ff7dcff5ce46364898815c685d0f0b8.tar.gz otp-6962098f2ff7dcff5ce46364898815c685d0f0b8.tar.bz2 otp-6962098f2ff7dcff5ce46364898815c685d0f0b8.zip |
Extend hipe_SUITE to test exceptions and try/catch
Diffstat (limited to 'erts/emulator/test/hipe_SUITE_data/trycatch_1.erl')
-rw-r--r-- | erts/emulator/test/hipe_SUITE_data/trycatch_1.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/erts/emulator/test/hipe_SUITE_data/trycatch_1.erl b/erts/emulator/test/hipe_SUITE_data/trycatch_1.erl new file mode 100644 index 0000000000..702b14b5b9 --- /dev/null +++ b/erts/emulator/test/hipe_SUITE_data/trycatch_1.erl @@ -0,0 +1,14 @@ +-module(trycatch_1). +-export([one_try_catch/1,one_plain_catch/1]). + +one_try_catch(Term) -> + try + trycatch_2:two(Term) + catch + C:R -> + Stk = erlang:get_stacktrace(), + {C,R,Stk} + end. + +one_plain_catch(Term) -> + {catch trycatch_2:two(Term),erlang:get_stacktrace()}. |