diff options
| author | Lukas Larsson <[email protected]> | 2012-05-08 17:30:35 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2012-07-19 15:48:58 +0200 |
| commit | cafb807d97348b5a2a39bb588cba8d1897f8399f (patch) | |
| tree | 4bec26dd69db12fe1569414eda318823c7083e8b /erts/emulator/test/estone_SUITE.erl | |
| parent | 671b2bd68fad4f793e485051329438a9e084db0a (diff) | |
| download | otp-cafb807d97348b5a2a39bb588cba8d1897f8399f.tar.gz otp-cafb807d97348b5a2a39bb588cba8d1897f8399f.tar.bz2 otp-cafb807d97348b5a2a39bb588cba8d1897f8399f.zip | |
Add estone benchmarks to ts benchmark framework
Diffstat (limited to 'erts/emulator/test/estone_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/estone_SUITE.erl | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/erts/emulator/test/estone_SUITE.erl b/erts/emulator/test/estone_SUITE.erl index 2417d4bcfe..21834bfa62 100644 --- a/erts/emulator/test/estone_SUITE.erl +++ b/erts/emulator/test/estone_SUITE.erl @@ -19,7 +19,7 @@ -module(estone_SUITE). %% Test functions -export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, - init_per_group/2,end_per_group/2,estone/1]). + init_per_group/2,end_per_group/2,estone/1,estone_bench/1]). -export([init_per_testcase/2, end_per_testcase/2]). %% Internal exports for EStone tests @@ -46,6 +46,7 @@ -include_lib("test_server/include/test_server.hrl"). +-include_lib("common_test/include/ct_event.hrl"). %% Test suite defines -define(default_timeout, ?t:minutes(10)). @@ -80,7 +81,7 @@ all() -> [estone]. groups() -> - []. + [{estone_bench, [{repeat,50}],[estone_bench]}]. init_per_suite(Config) -> Config. @@ -108,6 +109,17 @@ estone(Config) when is_list(Config) -> ?line {comment,Mhz ++ " MHz, " ++ integer_to_list(Stones) ++ " ESTONES"}. +estone_bench(Config) -> + DataDir = ?config(data_dir,Config), + L = ?MODULE:macro(?MODULE:micros(),DataDir), + [ct_event:notify( + #event{name = benchmark_data, + data = [{name,proplists:get_value(title,Mark)}, + {value,proplists:get_value(estones,Mark)}]}) + || Mark <- L], + L. + + %% %% Calculate CPU speed %% |