diff options
| author | Richard Carlsson <[email protected]> | 2015-04-16 14:30:55 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-05-07 14:40:32 +0200 |
| commit | fc1029c74093fde14241ca664c9341fcc8be5fd3 (patch) | |
| tree | 7cd45bce86771c145f0191cb5430b08021d34cd7 /erts/emulator/test | |
| parent | 39ce03094edb3bc53ad671636355be53564a222d (diff) | |
| download | otp-fc1029c74093fde14241ca664c9341fcc8be5fd3.tar.gz otp-fc1029c74093fde14241ca664c9341fcc8be5fd3.tar.bz2 otp-fc1029c74093fde14241ca664c9341fcc8be5fd3.zip | |
Add module_info entry for native code
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/module_info_SUITE.erl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/erts/emulator/test/module_info_SUITE.erl b/erts/emulator/test/module_info_SUITE.erl index f3986f0c4f..1125cf3072 100644 --- a/erts/emulator/test/module_info_SUITE.erl +++ b/erts/emulator/test/module_info_SUITE.erl @@ -94,12 +94,15 @@ functions(Config) when is_list(Config) -> ok. %% Test that the list of exported functions from this module is correct. +%% Verify that module_info(native) works. native(Config) when is_list(Config) -> ?line All = all_functions(), ?line case ?MODULE:module_info(native_addresses) of [] -> + ?line false = ?MODULE:module_info(native), {comment,"no native functions"}; L -> + ?line true = ?MODULE:module_info(native), %% Verify that all functions have unique addresses. ?line S0 = sofs:set(L, [{name,arity,addr}]), ?line S1 = sofs:projection({external,fun ?MODULE:native_proj/1}, S0), |