diff options
| author | Björn Gustavsson <[email protected]> | 2010-12-16 10:32:28 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-01-17 15:23:22 +0100 |
| commit | 6ce5ab74806d044070768175f48605bab7fa079d (patch) | |
| tree | 5be617825d4e878c6d5dd4b48dd7b1d2feada2b0 /erts/emulator/test | |
| parent | 1d82ce2e4466980e5c360b54722952a30bc3ae50 (diff) | |
| download | otp-6ce5ab74806d044070768175f48605bab7fa079d.tar.gz otp-6ce5ab74806d044070768175f48605bab7fa079d.tar.bz2 otp-6ce5ab74806d044070768175f48605bab7fa079d.zip | |
Add erts_debug:instructions/0 for listing all specific instructions
erts_debug:instructions/0 is useful for finding which specific
instructions that are not used at all.
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/erts_debug_SUITE.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/erts/emulator/test/erts_debug_SUITE.erl b/erts/emulator/test/erts_debug_SUITE.erl index e60a999df1..934a1b10a4 100644 --- a/erts/emulator/test/erts_debug_SUITE.erl +++ b/erts/emulator/test/erts_debug_SUITE.erl @@ -21,10 +21,10 @@ -include("test_server.hrl"). -export([all/1,init_per_testcase/2,fin_per_testcase/2, - flat_size/1,flat_size_big/1,df/1]). + flat_size/1,flat_size_big/1,df/1,instructions/1]). all(suite) -> - [flat_size,flat_size_big,df]. + [flat_size,flat_size_big,df,instructions]. init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) -> Dog=?t:timetrap(?t:minutes(2)), @@ -70,3 +70,8 @@ df(Config) when is_list(Config) -> pps() -> {erlang:ports()}. + +instructions(Config) when is_list(Config) -> + ?line Is = erts_debug:instructions(), + ?line _ = [list_to_atom(I) || I <- Is], + ok. |