diff options
| author | Björn Gustavsson <[email protected]> | 2017-11-16 05:27:05 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-11-30 12:46:51 +0100 |
| commit | 38e4dfbd281cae0fb58211b63861b037ad121231 (patch) | |
| tree | 349b504f5c08809352b06b2a2b219d544b4e1e21 /erts/emulator/test/dirty_nif_SUITE.erl | |
| parent | ef2e55c707a6c3d1f54f2acb9c8bfbe3fb7a8659 (diff) | |
| download | otp-38e4dfbd281cae0fb58211b63861b037ad121231.tar.gz otp-38e4dfbd281cae0fb58211b63861b037ad121231.tar.bz2 otp-38e4dfbd281cae0fb58211b63861b037ad121231.zip | |
Use the new syntax in more test suites
Diffstat (limited to 'erts/emulator/test/dirty_nif_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/dirty_nif_SUITE.erl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/erts/emulator/test/dirty_nif_SUITE.erl b/erts/emulator/test/dirty_nif_SUITE.erl index 13806fd5c4..aa01435758 100644 --- a/erts/emulator/test/dirty_nif_SUITE.erl +++ b/erts/emulator/test/dirty_nif_SUITE.erl @@ -109,9 +109,8 @@ dirty_nif_exception(Config) when is_list(Config) -> call_dirty_nif_exception(1), ct:fail(expected_badarg) catch - error:badarg -> - [{?MODULE,call_dirty_nif_exception,[1],_}|_] = - erlang:get_stacktrace(), + error:badarg:Stk1 -> + [{?MODULE,call_dirty_nif_exception,[1],_}|_] = Stk1, ok end, try @@ -121,9 +120,8 @@ dirty_nif_exception(Config) when is_list(Config) -> call_dirty_nif_exception(0), ct:fail(expected_badarg) catch - error:badarg -> - [{?MODULE,call_dirty_nif_exception,[0],_}|_] = - erlang:get_stacktrace(), + error:badarg:Stk2 -> + [{?MODULE,call_dirty_nif_exception,[0],_}|_] = Stk2, ok end, %% this checks that a dirty NIF can raise various terms as @@ -138,8 +136,8 @@ nif_raise_exceptions(NifFunc) -> erlang:apply(?MODULE,NifFunc,[Term]), ct:fail({expected,Term}) catch - error:Term -> - [{?MODULE,NifFunc,[Term],_}|_] = erlang:get_stacktrace(), + error:Term:Stk -> + [{?MODULE,NifFunc,[Term],_}|_] = Stk, ok end end, ok, ExcTerms). |