diff options
| author | Peter Andersson <[email protected]> | 2011-11-15 22:58:24 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2011-12-02 14:38:40 +0100 |
| commit | 15214a3d1918f4388d2aa9f12a3fd7005da2b65d (patch) | |
| tree | 7b09a15bde18f52ef03941449db004f646bde1de /lib/test_server/src/test_server_ctrl.erl | |
| parent | 0ea7684efdc443a9a4e2b35c97c7eee1b047fc44 (diff) | |
| download | otp-15214a3d1918f4388d2aa9f12a3fd7005da2b65d.tar.gz otp-15214a3d1918f4388d2aa9f12a3fd7005da2b65d.tar.bz2 otp-15214a3d1918f4388d2aa9f12a3fd7005da2b65d.zip | |
Implement the group info function
OTP-9235
Diffstat (limited to 'lib/test_server/src/test_server_ctrl.erl')
| -rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index 642bb14c88..3c4b2ead8a 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -2725,21 +2725,27 @@ run_test_cases_loop([{conf,Ref,Props,{Mod,Func}}|_Cases]=Cs0, "(configuration case ~w)", [What]); (_) -> ok end, - CfgProps = if StartConf -> if Shuffle == undefined -> [{tc_group_properties,Props}]; true -> - [{tc_group_properties,[Shuffle|delete_shuffle(Props)]}] + [{tc_group_properties, + [Shuffle|delete_shuffle(Props)]}] end; not StartConf -> {TcOk,TcSkip,TcFail} = get_tc_results(Status1), [{tc_group_properties,get_props(Mode0)}, - {tc_group_result,[{ok,TcOk},{skipped,TcSkip},{failed,TcFail}]}] + {tc_group_result,[{ok,TcOk}, + {skipped,TcSkip}, + {failed,TcFail}]}] end, + GroupPath = lists:flatmap(fun({_Ref,[],_T}) -> []; + ({_Ref,GrProps,_T}) -> [GrProps] end, Mode0), ActualCfg = - update_config(hd(Config), [{priv_dir,get(test_server_priv_dir)}, - {data_dir,get_data_dir(Mod)}] ++ CfgProps), + update_config(hd(Config), + [{priv_dir,get(test_server_priv_dir)}, + {data_dir,get_data_dir(Mod)}, + {tc_group_path,GroupPath} | CfgProps]), CurrMode = curr_mode(Ref, Mode0, Mode), ConfCaseResult = run_test_case(Ref, 0, Mod, Func, [ActualCfg], skip_init, target, |