aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/test
diff options
context:
space:
mode:
authorRichard Carlsson <[email protected]>2015-04-16 14:30:55 +0200
committerBjörn Gustavsson <[email protected]>2015-05-07 14:40:32 +0200
commitfc1029c74093fde14241ca664c9341fcc8be5fd3 (patch)
tree7cd45bce86771c145f0191cb5430b08021d34cd7 /erts/emulator/test
parent39ce03094edb3bc53ad671636355be53564a222d (diff)
downloadotp-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.erl3
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),