diff options
| author | Lukas Larsson <[email protected]> | 2013-08-08 10:28:48 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2013-08-08 10:28:48 +0200 |
| commit | d787e64c8cf522b0f2fa2e26e0be154454fae4a8 (patch) | |
| tree | 83a3c146f6f5e8ec000d8cb0d28a07c9dc17c24c /lib/test_server/src/ts_lib.erl | |
| parent | 3fbbe6760a0476fccc2375dc8ca5791546dbc876 (diff) | |
| parent | 86f970056b55ab8c33ecb6d0ce13924e3331b79a (diff) | |
| download | otp-d787e64c8cf522b0f2fa2e26e0be154454fae4a8.tar.gz otp-d787e64c8cf522b0f2fa2e26e0be154454fae4a8.tar.bz2 otp-d787e64c8cf522b0f2fa2e26e0be154454fae4a8.zip | |
Merge branch 'lukas/smoketests/OTP-11221' into maint
* lukas/smoketests/OTP-11221:
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, |