aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server/src/ts_lib.erl
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2012-05-08 17:28:46 +0200
committerLukas Larsson <[email protected]>2012-07-19 15:48:58 +0200
commit671b2bd68fad4f793e485051329438a9e084db0a (patch)
tree742af072cea1a3e25b0ed846e2175fd8c7f2b740 /lib/test_server/src/ts_lib.erl
parent82470e1c820e367007338b8e188d7d985aabe77b (diff)
downloadotp-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.erl12
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",