diff options
| author | Tuncer Ayaz <[email protected]> | 2010-05-07 18:05:56 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-05-24 14:25:11 +0200 |
| commit | 08d67b91c5daf5eb5e8d974ca08bb1b634c4ae2a (patch) | |
| tree | 69adfaefdb7520c7abe519ad8b4cd6406598395e /erts/emulator/test/nif_SUITE.erl | |
| parent | 458dcb10f98bffd241a837cbac7c108eb485f706 (diff) | |
| download | otp-08d67b91c5daf5eb5e8d974ca08bb1b634c4ae2a.tar.gz otp-08d67b91c5daf5eb5e8d974ca08bb1b634c4ae2a.tar.bz2 otp-08d67b91c5daf5eb5e8d974ca08bb1b634c4ae2a.zip | |
erl_nif: add enif_is_list and enif_is_tuple
Add new NIF API functions
- enif_is_list
- enif_is_tuple
Signed-off-by: Tuncer Ayaz <[email protected]>
Diffstat (limited to 'erts/emulator/test/nif_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/nif_SUITE.erl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/erts/emulator/test/nif_SUITE.erl b/erts/emulator/test/nif_SUITE.erl index 522caec8f1..36bcfe26cc 100644 --- a/erts/emulator/test/nif_SUITE.erl +++ b/erts/emulator/test/nif_SUITE.erl @@ -28,7 +28,7 @@ -export([all/1, fin_per_testcase/2, basic/1, reload/1, upgrade/1, heap_frag/1, types/1, many_args/1, binaries/1, get_string/1, get_atom/1, api_macros/1, from_array/1, iolist_as_binary/1, resource/1, resource_takeover/1, - threading/1, neg/1]). + threading/1, neg/1, is_checks/1]). -export([many_args_100/100]). -define(nif_stub,nif_stub_error(?LINE)). @@ -36,7 +36,7 @@ all(suite) -> [basic, reload, upgrade, heap_frag, types, many_args, binaries, get_string, get_atom, api_macros, from_array, iolist_as_binary, resource, - resource_takeover, threading, neg]. + resource_takeover, threading, neg, is_checks]. %%init_per_testcase(_Case, Config) -> %% ?line Dog = ?t:timetrap(?t:seconds(60*60*24)), @@ -759,7 +759,12 @@ neg(Config) when is_list(Config) -> ?line verify_tmpmem(TmpMem), ?line ok. - +is_checks(doc) -> ["Test all enif_is functions"]; +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">>]}). ensure_lib_loaded(Config) -> ensure_lib_loaded(Config, 1). @@ -855,6 +860,7 @@ get_resource(_,_) -> ?nif_stub. release_resource(_) -> ?nif_stub. last_resource_dtor_call() -> ?nif_stub. make_new_resource(_,_) -> ?nif_stub. +check_is(_,_,_,_,_,_,_,_,_,_) -> ?nif_stub. nif_stub_error(Line) -> exit({nif_not_loaded,module,?MODULE,line,Line}). |