diff options
| author | Peter Andersson <[email protected]> | 2011-09-06 23:33:43 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2011-09-23 12:24:55 +0200 |
| commit | 36f1e1898a2ea08d591739cc2e9ff8e7fbb0ea6b (patch) | |
| tree | f6b2b028c4b1059e008eb871be730cd012c87693 /lib/common_test/src/ct_run.erl | |
| parent | e91ba727f534553a34c05ad54247a0485e2429ff (diff) | |
| download | otp-36f1e1898a2ea08d591739cc2e9ff8e7fbb0ea6b.tar.gz otp-36f1e1898a2ea08d591739cc2e9ff8e7fbb0ea6b.tar.bz2 otp-36f1e1898a2ea08d591739cc2e9ff8e7fbb0ea6b.zip | |
Repair and improve the vts mode
OTP-9429
Diffstat (limited to 'lib/common_test/src/ct_run.erl')
| -rw-r--r-- | lib/common_test/src/ct_run.erl | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index 2dd6ba08aa..4ec3ac589d 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -2483,23 +2483,22 @@ get_all_testcases(Suite) -> Error; SuiteCases -> Cases = [C || {_S,C} <- SuiteCases], - Cases1 = - try Suite:sequences() of - [] -> - Cases; - Seqs -> - TCs1 = lists:flatten([TCs || {_,TCs} <- Seqs]), - lists:reverse( - lists:foldl(fun(TC, Acc) -> - case lists:member(TC, Acc) of - true -> Acc; - false -> [TC | Acc] - end - end, [], Cases ++ TCs1)) - catch - _:_ -> - Cases - end + try Suite:sequences() of + [] -> + Cases; + Seqs -> + TCs1 = lists:flatten([TCs || {_,TCs} <- Seqs]), + lists:reverse( + lists:foldl(fun(TC, Acc) -> + case lists:member(TC, Acc) of + true -> Acc; + false -> [TC | Acc] + end + end, [], Cases ++ TCs1)) + catch + _:_ -> + Cases + end catch _:Error -> {error,Error} |