diff options
| author | Lukas Larsson <[email protected]> | 2010-10-12 10:30:46 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2011-02-17 17:18:45 +0100 |
| commit | 4a1a40f8ce37e1790c0b519ba2e339b8dc96d770 (patch) | |
| tree | a8724bc81eeb7b727fd92044c0d4d963bbc10e6d /lib/tools/test/cprof_SUITE.erl | |
| parent | 95f687c351e8d01cb41700649e89799192edc0dc (diff) | |
| download | otp-4a1a40f8ce37e1790c0b519ba2e339b8dc96d770.tar.gz otp-4a1a40f8ce37e1790c0b519ba2e339b8dc96d770.tar.bz2 otp-4a1a40f8ce37e1790c0b519ba2e339b8dc96d770.zip | |
Update tools tests to conform with common_test standard
Diffstat (limited to 'lib/tools/test/cprof_SUITE.erl')
| -rw-r--r-- | lib/tools/test/cprof_SUITE.erl | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/lib/tools/test/cprof_SUITE.erl b/lib/tools/test/cprof_SUITE.erl index f366ac75bc..2f118deebe 100644 --- a/lib/tools/test/cprof_SUITE.erl +++ b/lib/tools/test/cprof_SUITE.erl @@ -41,7 +41,7 @@ -define(config(A,B),config(A,B)). -export([config/2]). -else. --include("test_server.hrl"). +-include_lib("test_server/include/test_server.hrl"). -endif. -ifdef(debug). @@ -63,7 +63,7 @@ config(data_dir, _) -> "cprof_SUITE_data". -else. %% When run in test server. --export([all/1, init_per_testcase/2, end_per_testcase/2, not_run/1]). +-export([all/0,groups/0,init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2, not_run/1]). -export([basic/1, on_load/1, modules/1]). init_per_testcase(_Case, Config) -> @@ -78,15 +78,21 @@ end_per_testcase(_Case, Config) -> test_server:timetrap_cancel(Dog), ok. -all(doc) -> - ["Test the cprof profiling tool."]; -all(suite) -> - case test_server:is_native(?MODULE) of - true -> [not_run]; - false -> [basic, on_load, modules] -%, on_and_off, info, -% pause_and_restart, combo] - end. +all() -> +case test_server:is_native(cprof_SUITE) of + true -> [not_run]; + false -> [basic, on_load, modules] +end. + +groups() -> + []. + +init_per_group(_GroupName, Config) -> + Config. + +end_per_group(_GroupName, Config) -> + Config. + not_run(Config) when is_list(Config) -> {skipped,"Native code"}. |