diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-29 09:29:23 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-02-06 15:13:21 +0100 |
| commit | 854023efb6444a5332d1bd12293ef63cbf0faf0d (patch) | |
| tree | 07d52f5fe4c386f127594e3d320cbcfa3f88eaff /lib | |
| parent | fd79b0246a1da9fdb84926a3e31e516c76cf0b2d (diff) | |
| download | otp-854023efb6444a5332d1bd12293ef63cbf0faf0d.tar.gz otp-854023efb6444a5332d1bd12293ef63cbf0faf0d.tar.bz2 otp-854023efb6444a5332d1bd12293ef63cbf0faf0d.zip | |
fprof_SUITE: Skip create_file_slow/1 if libraries are native
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/tools/test/fprof_SUITE.erl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lib/tools/test/fprof_SUITE.erl b/lib/tools/test/fprof_SUITE.erl index 0da6d4a9ea..f491c1e227 100644 --- a/lib/tools/test/fprof_SUITE.erl +++ b/lib/tools/test/fprof_SUITE.erl @@ -191,11 +191,17 @@ tail_seq(Config) when is_list(Config) -> %%%--------------------------------------------------------------------- -create_file_slow(doc) -> - ["Tests the create_file_slow benchmark"]; -create_file_slow(suite) -> - []; -create_file_slow(Config) when is_list(Config) -> +%% Tests the create_file_slow benchmark. +create_file_slow(Config) -> + case test_server:is_native(lists) orelse + test_server:is_native(file) of + true -> + {skip,"Native libs -- tracing does not work"}; + false -> + do_create_file_slow(Config) + end. + +do_create_file_slow(Config) -> ?line Timetrap = ?t:timetrap(?t:seconds(40)), ?line PrivDir = ?config(priv_dir, Config), ?line TraceFile = |