diff options
| author | Sverker Eriksson <[email protected]> | 2011-04-27 18:02:08 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2011-04-27 18:02:08 +0200 |
| commit | 317452247f37133f27d9e4e8040269dbccedb268 (patch) | |
| tree | dcc8acd50269f4776ba322689268311b7203768a /erts/emulator/test/nif_SUITE.erl | |
| parent | 574de87663ecee7043df1783e7c3b830193b0399 (diff) | |
| parent | b02f03c979cda37e43828cd6e1787649f1d8ca8c (diff) | |
| download | otp-317452247f37133f27d9e4e8040269dbccedb268.tar.gz otp-317452247f37133f27d9e4e8040269dbccedb268.tar.bz2 otp-317452247f37133f27d9e4e8040269dbccedb268.zip | |
Merge branch 'sverker/enif_is_exception/OTP-9150' into dev
* sverker/enif_is_exception/OTP-9150:
add support for checking if an ERL_NIF_TERM is an exception
Diffstat (limited to 'erts/emulator/test/nif_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/nif_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/erts/emulator/test/nif_SUITE.erl b/erts/emulator/test/nif_SUITE.erl index b79c30d8d9..91d695d979 100644 --- a/erts/emulator/test/nif_SUITE.erl +++ b/erts/emulator/test/nif_SUITE.erl @@ -1121,7 +1121,14 @@ is_checks(Config) when is_list(Config) -> ?line ensure_lib_loaded(Config, 1), ?line ok = check_is(hejsan, <<19,98>>, make_ref(), ok, fun() -> ok end, self(), hd(erlang:ports()), [], [1,9,9,8], - {hejsan, "hejsan", [$h,"ejs",<<"an">>]}). + {hejsan, "hejsan", [$h,"ejs",<<"an">>]}), + try + ?line error = check_is_exception(), + ?line throw(expected_badarg) + catch + error:badarg -> + ?line ok + end. get_length(doc) -> ["Test all enif_get_length functions"]; get_length(Config) when is_list(Config) -> @@ -1245,6 +1252,7 @@ release_resource(_) -> ?nif_stub. last_resource_dtor_call() -> ?nif_stub. make_new_resource(_,_) -> ?nif_stub. check_is(_,_,_,_,_,_,_,_,_,_) -> ?nif_stub. +check_is_exception() -> ?nif_stub. length_test(_,_,_,_,_) -> ?nif_stub. make_atoms() -> ?nif_stub. make_strings() -> ?nif_stub. |