diff options
| author | Björn Gustavsson <[email protected]> | 2019-04-12 10:25:39 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2019-04-12 10:25:39 +0200 |
| commit | 2277e30d3dd207a81037d43a7328bbc91552bb76 (patch) | |
| tree | 747a18948dfa9374e0c79d417fabfd094d7de40b /erts/emulator/test | |
| parent | 07be518a33d934837fe9745f0ec9399cc34a367f (diff) | |
| parent | 7e4c18d1a750f53e16e4b06707722164411bf462 (diff) | |
| download | otp-2277e30d3dd207a81037d43a7328bbc91552bb76.tar.gz otp-2277e30d3dd207a81037d43a7328bbc91552bb76.tar.bz2 otp-2277e30d3dd207a81037d43a7328bbc91552bb76.zip | |
Merge branch 'bjorn/erts/measure-process_main/OTP-15620'
* bjorn/erts/measure-process_main/OTP-15620:
Add benchmark
Add erts_debug:interpreter_size/0
Diffstat (limited to 'erts/emulator/test')
| -rw-r--r-- | erts/emulator/test/emulator_bench.spec | 1 | ||||
| -rw-r--r-- | erts/emulator/test/erts_debug_SUITE.erl | 15 |
2 files changed, 14 insertions, 2 deletions
diff --git a/erts/emulator/test/emulator_bench.spec b/erts/emulator/test/emulator_bench.spec index 2a180b440c..03638bfa23 100644 --- a/erts/emulator/test/emulator_bench.spec +++ b/erts/emulator/test/emulator_bench.spec @@ -1,2 +1,3 @@ {groups,"../emulator_test",estone_SUITE,[estone_bench]}. {groups,"../emulator_test",binary_SUITE,[iolist_size_benchmarks]}. +{groups,"../emulator_test",erts_debug_SUITE,[interpreter_size_bench]}. diff --git a/erts/emulator/test/erts_debug_SUITE.erl b/erts/emulator/test/erts_debug_SUITE.erl index f39dbedd8f..6798e3bf25 100644 --- a/erts/emulator/test/erts_debug_SUITE.erl +++ b/erts/emulator/test/erts_debug_SUITE.erl @@ -20,10 +20,12 @@ -module(erts_debug_SUITE). -include_lib("common_test/include/ct.hrl"). +-include_lib("common_test/include/ct_event.hrl"). --export([all/0, suite/0, +-export([all/0, suite/0, groups/0, test_size/1,flat_size_big/1,df/1,term_type/1, - instructions/1, stack_check/1, alloc_blocks_size/1]). + instructions/1, stack_check/1, alloc_blocks_size/1, + interpreter_size_bench/1]). -export([do_alloc_blocks_size/0]). @@ -35,6 +37,15 @@ all() -> [test_size, flat_size_big, df, instructions, term_type, stack_check, alloc_blocks_size]. +groups() -> + [{interpreter_size_bench, [], [interpreter_size_bench]}]. + +interpreter_size_bench(_Config) -> + Size = erts_debug:interpreter_size(), + ct_event:notify(#event{name=benchmark_data, + data=[{value,Size}]}), + {comment,integer_to_list(Size)++" bytes"}. + test_size(Config) when is_list(Config) -> ConsCell1 = id([a|b]), ConsCell2 = id(ConsCell1), |