diff options
| author | Peter Andersson <[email protected]> | 2012-08-23 17:41:36 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2012-08-23 17:41:36 +0200 |
| commit | e2d5adbd9167ec51edaece5bf672c76e4898ca05 (patch) | |
| tree | f3c8edd345ec3c03d39bb712d310f4a6ecfed3c1 /lib/common_test/src/ct_testspec.erl | |
| parent | ada34eeaa3e7f034a3c69ccc95e1bcf2226cb7eb (diff) | |
| download | otp-e2d5adbd9167ec51edaece5bf672c76e4898ca05.tar.gz otp-e2d5adbd9167ec51edaece5bf672c76e4898ca05.tar.bz2 otp-e2d5adbd9167ec51edaece5bf672c76e4898ca05.zip | |
Solve problems with verbosity levels and parallel test cases
Diffstat (limited to 'lib/common_test/src/ct_testspec.erl')
| -rw-r--r-- | lib/common_test/src/ct_testspec.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/common_test/src/ct_testspec.erl b/lib/common_test/src/ct_testspec.erl index d66caef100..7759aca16b 100644 --- a/lib/common_test/src/ct_testspec.erl +++ b/lib/common_test/src/ct_testspec.erl @@ -934,6 +934,12 @@ handle_data(ct_hooks,Node,Hook,_Spec) -> [{Node,Hook}]; handle_data(stylesheet,Node,CSSFile,Spec) -> [{Node,get_absfile(CSSFile,Spec)}]; +handle_data(verbosity,Node,VLvls,_Spec) when is_integer(VLvls) -> + [{Node,[{'$unspecified',VLvls}]}]; +handle_data(verbosity,Node,VLvls,_Spec) when is_list(VLvls) -> + VLvls1 = lists:map(fun(VLvl = {_Cat,_Lvl}) -> VLvl; + (Lvl) -> {'$unspecified',Lvl} end, VLvls), + [{Node,VLvls1}]; handle_data(_Tag,Node,Data,_Spec) -> [{Node,Data}]. @@ -943,7 +949,8 @@ should_be_added(Tag,Node,_Data,Spec) -> %% list terms *without* possible duplicates here Tag == logdir; Tag == logopts; Tag == basic_html; Tag == label; - Tag == auto_compile; Tag == stylesheet -> + Tag == auto_compile; Tag == stylesheet; + Tag == verbosity -> lists:keymember(ref2node(Node,Spec#testspec.nodes),1, read_field(Spec,Tag)) == false; %% for terms *with* possible duplicates |