diff options
| author | Lukas Larsson <[email protected]> | 2013-07-30 14:53:00 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2013-08-05 10:49:26 +0200 |
| commit | 86f970056b55ab8c33ecb6d0ce13924e3331b79a (patch) | |
| tree | e5e6834077d0a2fe810e56fa77669986b5068022 /lib/test_server/src/ts_lib.erl | |
| parent | a938fc96881564f5f56a510b0c750efaa9ed48e4 (diff) | |
| download | otp-86f970056b55ab8c33ecb6d0ce13924e3331b79a.tar.gz otp-86f970056b55ab8c33ecb6d0ce13924e3331b79a.tar.bz2 otp-86f970056b55ab8c33ecb6d0ce13924e3331b79a.zip | |
Add smoke tests
Smoke tests are meant to verify that a build of erlang has been successfull.
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, |