diff options
| author | Lukas Larsson <[email protected]> | 2012-05-08 17:28:46 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2012-07-19 15:48:58 +0200 |
| commit | 671b2bd68fad4f793e485051329438a9e084db0a (patch) | |
| tree | 742af072cea1a3e25b0ed846e2175fd8c7f2b740 /lib/test_server/src/ts_lib.erl | |
| parent | 82470e1c820e367007338b8e188d7d985aabe77b (diff) | |
| download | otp-671b2bd68fad4f793e485051329438a9e084db0a.tar.gz otp-671b2bd68fad4f793e485051329438a9e084db0a.tar.bz2 otp-671b2bd68fad4f793e485051329438a9e084db0a.zip | |
Add framework to ts to run benchmarks
Diffstat (limited to 'lib/test_server/src/ts_lib.erl')
| -rw-r--r-- | lib/test_server/src/ts_lib.erl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/test_server/src/ts_lib.erl b/lib/test_server/src/ts_lib.erl index d521d2beda..93d5d78289 100644 --- a/lib/test_server/src/ts_lib.erl +++ b/lib/test_server/src/ts_lib.erl @@ -108,8 +108,16 @@ interesting_logs(Dir) -> specs(Dir) -> Specs = filelib:wildcard(filename:join([filename:dirname(Dir), - "*_test", "*.{dyn,}spec"])), - sort_tests([filename_to_atom(Name) || Name <- Specs]). + "*_test", "*.{dyn,}spec"])), + % Filter away all spec which end with _bench.spec + NoBench = fun(SpecName) -> + case lists:reverse(SpecName) of + "ceps.hcneb_"++_ -> false; + _ -> true + end + end, + + sort_tests([filename_to_atom(Name) || Name <- Specs, NoBench(Name)]). suites(Dir, Spec) -> Glob=filename:join([filename:dirname(Dir), Spec++"_test", |