diff options
| author | Björn Gustavsson <[email protected]> | 2019-04-11 12:55:35 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2019-04-11 13:04:47 +0200 |
| commit | 7e4c18d1a750f53e16e4b06707722164411bf462 (patch) | |
| tree | b76755fd48ef24fba2df871283c5e079cad7023d | |
| parent | 9dca10bd14a3ee5b2e491e8249f3d5de7b5a116c (diff) | |
| download | otp-7e4c18d1a750f53e16e4b06707722164411bf462.tar.gz otp-7e4c18d1a750f53e16e4b06707722164411bf462.tar.bz2 otp-7e4c18d1a750f53e16e4b06707722164411bf462.zip | |
Add benchmark
| -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), |