From 6d6a441370bee4aa78c1d2916e74b52a9b49d40a Mon Sep 17 00:00:00 2001 From: Tino Breddin Date: Fri, 30 Aug 2019 15:19:24 +0200 Subject: Fix case clause which used wrong element order See http://erlang.org/doc/man/ct_hooks.html#Module:on_tc_fail-4 --- src/cth_retry.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cth_retry.erl b/src/cth_retry.erl index 7056c71..b745c35 100644 --- a/src/cth_retry.erl +++ b/src/cth_retry.erl @@ -94,7 +94,7 @@ on_tc_skip(Suite, TC, {tc_auto_skip, _}, State=#state{suite=Suite, groups=Groups {end_per_group, _} -> Acc; init_per_suite -> Acc; end_per_suite -> Acc; - {_Group, Case} -> [{Suite, Groups, Case}|Acc]; + {Case, _Group} -> [{Suite, Groups, Case}|Acc]; TC -> [{Suite, Groups, TC}|Acc] end, State#state{suite=Suite, acc=NewAcc}; @@ -111,7 +111,7 @@ on_tc_skip(TC, {tc_auto_skip, _}, State=#state{suite=Suite, groups=Groups, acc=A {end_per_group, _} -> Acc; init_per_suite -> Acc; end_per_suite -> Acc; - {_Group, Case} -> [{Suite, Groups, Case}|Acc]; + {Case, _Group} -> [{Suite, Groups, Case}|Acc]; TC -> [{Suite, Groups, TC}|Acc] end, State#state{acc=NewAcc}; -- cgit v1.1