diff options
| author | Lukas Larsson <[email protected]> | 2013-08-08 10:29:24 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2013-08-08 10:29:24 +0200 |
| commit | f5830abe5e91d5f93459f44c4403a4a0f640f38d (patch) | |
| tree | b4a0480ab082869c33f04f007b066e9da23b96e2 /lib/test_server/src/ts_lib.erl | |
| parent | a44ae95751b309440c8419ec79d99abc94ff4d5f (diff) | |
| parent | d787e64c8cf522b0f2fa2e26e0be154454fae4a8 (diff) | |
| download | otp-f5830abe5e91d5f93459f44c4403a4a0f640f38d.tar.gz otp-f5830abe5e91d5f93459f44c4403a4a0f640f38d.tar.bz2 otp-f5830abe5e91d5f93459f44c4403a4a0f640f38d.zip | |
Merge branch 'maint'
* maint:
Add smoke tests
Diffstat (limited to 'lib/test_server/src/ts_lib.erl')
| -rw-r--r-- | lib/test_server/src/ts_lib.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/test_server/src/ts_lib.erl b/lib/test_server/src/ts_lib.erl index a00f607fc1..52bb346043 100644 --- a/lib/test_server/src/ts_lib.erl +++ b/lib/test_server/src/ts_lib.erl @@ -27,6 +27,7 @@ erlang_type/1, initial_capital/1, specs/1, suites/2, + specialized_specs/2, subst_file/3, subst/2, print_data/1, make_non_erlang/2, maybe_atom_to_list/1, progress/4, @@ -91,13 +92,22 @@ initial_capital([C|Rest]) when $a =< C, C =< $z -> initial_capital(String) -> String. +specialized_specs(Dir,PostFix) -> + Specs = filelib:wildcard(filename:join([filename:dirname(Dir), + "*_test", "*_"++PostFix++".spec"])), + sort_tests([begin + Base = filename:basename(Name), + list_to_atom(string:substr(Base,1,string:rstr(Base,"_")-1)) + end || Name <- Specs]). + specs(Dir) -> Specs = filelib:wildcard(filename:join([filename:dirname(Dir), "*_test", "*.{dyn,}spec"])), - % Filter away all spec which end with _bench.spec + % Filter away all spec which end with {_bench,_smoke}.spec NoBench = fun(SpecName) -> case lists:reverse(SpecName) of "ceps.hcneb_"++_ -> false; + "ceps.ekoms_"++_ -> false; _ -> true end end, |