aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/test/module_info_SUITE.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /erts/emulator/test/module_info_SUITE.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'erts/emulator/test/module_info_SUITE.erl')
-rw-r--r--erts/emulator/test/module_info_SUITE.erl105
1 files changed, 105 insertions, 0 deletions
diff --git a/erts/emulator/test/module_info_SUITE.erl b/erts/emulator/test/module_info_SUITE.erl
new file mode 100644
index 0000000000..f34a2b496c
--- /dev/null
+++ b/erts/emulator/test/module_info_SUITE.erl
@@ -0,0 +1,105 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2005-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+-module(module_info_SUITE).
+
+-include("test_server.hrl").
+
+-export([all/1,init_per_testcase/2,end_per_testcase/2,
+ exports/1,functions/1,native/1]).
+
+%%-compile(native).
+
+%% Helper.
+-export([native_proj/1,native_filter/1]).
+
+all(suite) ->
+ [exports,functions,native].
+
+init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
+ Dog = ?t:timetrap(?t:minutes(3)),
+ [{watchdog,Dog}|Config].
+
+end_per_testcase(_Func, Config) ->
+ Dog = ?config(watchdog, Config),
+ ?t:timetrap_cancel(Dog).
+
+%% Should return all functions exported from this module. (local)
+all_exported() ->
+ All = add_arity(all(suite)),
+ lists:sort([{all,1},{init_per_testcase,2},{end_per_testcase,2},
+ {module_info,0},{module_info,1},{native_proj,1},
+ {native_filter,1}|All]).
+
+%% Should return all functions in this module. (local)
+all_functions() ->
+ Locals = [{add_arity,1},{add_arity,2},{all_exported,0},{all_functions,0}],
+ lists:sort(Locals++all_exported()).
+
+%% Test that the list of exported functions from this module is correct.
+exports(Config) when is_list(Config) ->
+ ?line All = all_exported(),
+ ?line All = lists:sort(?MODULE:module_info(exports)),
+ ?line (catch ?MODULE:foo()),
+ ?line All = lists:sort(?MODULE:module_info(exports)),
+ ok.
+
+%% Test that the list of exported functions from this module is correct.
+functions(Config) when is_list(Config) ->
+ ?line All = all_functions(),
+ ?line All = lists:sort(?MODULE:module_info(functions)),
+ ok.
+
+%% Test that the list of exported functions from this module is correct.
+native(Config) when is_list(Config) ->
+ ?line All = all_functions(),
+ ?line case ?MODULE:module_info(native_addresses) of
+ [] ->
+ {comment,"no native functions"};
+ L ->
+ %% 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),
+ ?line S2 = sofs:relation_to_family(S1),
+ ?line S3 = sofs:family_specification(fun ?MODULE:native_filter/1, S2),
+ ?line 0 = sofs:no_elements(S3),
+ ?line S4 = sofs:range(S1),
+
+ %% Verify that the set of function with native addresses
+ %% is a subset of all functions in the module.
+ ?line AllSet = sofs:set(All, [{name,arity}]),
+ ?line true = sofs:is_subset(S4, AllSet),
+
+ {comment,integer_to_list(sofs:no_elements(S0))++" native functions"}
+ end.
+
+native_proj({Name,Arity,Addr}) ->
+ {Addr,{Name,Arity}}.
+
+native_filter(Set) ->
+ sofs:no_elements(Set) =/= 1.
+
+%% Helper functions (local).
+
+add_arity(L) ->
+ add_arity(L, []).
+
+add_arity([H|T], Acc) ->
+ add_arity(T, [{H,1}|Acc]);
+add_arity([], Acc) -> lists:reverse(Acc).