diff options
| author | Tuncer Ayaz <[email protected]> | 2010-05-07 18:12:05 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-05-24 14:25:13 +0200 |
| commit | 8c8663f32f0e9fc2b9483e2b99cee5f703640e88 (patch) | |
| tree | b3b191d8230fd664a597c4565be916342cc0b752 /erts/emulator/test/nif_SUITE.erl | |
| parent | 08d67b91c5daf5eb5e8d974ca08bb1b634c4ae2a (diff) | |
| download | otp-8c8663f32f0e9fc2b9483e2b99cee5f703640e88.tar.gz otp-8c8663f32f0e9fc2b9483e2b99cee5f703640e88.tar.bz2 otp-8c8663f32f0e9fc2b9483e2b99cee5f703640e88.zip | |
erl_nif: add enif_get_atom_length and enif_get_list_length
Add new NIF API functions
- enif_get_atom_length
- enif_get_list_length
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 | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/erts/emulator/test/nif_SUITE.erl b/erts/emulator/test/nif_SUITE.erl index 36bcfe26cc..c2949e7bfa 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, is_checks/1]). + threading/1, neg/1, is_checks/1, get_length/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, is_checks]. + resource_takeover, threading, neg, is_checks, get_length]. %%init_per_testcase(_Case, Config) -> %% ?line Dog = ?t:timetrap(?t:seconds(60*60*24)), @@ -766,6 +766,11 @@ is_checks(Config) when is_list(Config) -> self(), hd(erlang:ports()), [], [1,9,9,8], {hejsan, "hejsan", [$h,"ejs",<<"an">>]}). +get_length(doc) -> ["Test all enif_get_length functions"]; +get_length(Config) when is_list(Config) -> + ?line ensure_lib_loaded(Config, 1), + ?line ok = length_test(hejsan, "hejsan", [], [], not_a_list). + ensure_lib_loaded(Config) -> ensure_lib_loaded(Config, 1). ensure_lib_loaded(Config, Ver) -> @@ -861,6 +866,7 @@ release_resource(_) -> ?nif_stub. last_resource_dtor_call() -> ?nif_stub. make_new_resource(_,_) -> ?nif_stub. check_is(_,_,_,_,_,_,_,_,_,_) -> ?nif_stub. +length_test(_,_,_,_,_) -> ?nif_stub. nif_stub_error(Line) -> exit({nif_not_loaded,module,?MODULE,line,Line}). |