Merge branch 'kuba/common_test/cth_surefire_skip_group_fix/dont_tail_…

…empty_list' into maint * kuba/common_test/cth_surefire_skip_group_fix/dont_tail_empty_list: common_test: cth_surefire don't fail on group skip
erlang · Dec 4, 2024 · 3b92c38 · 3b92c38
2 parents 6efcc3b + cccddb7
commit 3b92c38
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/common_test/src/cth_surefire.erl b/lib/common_test/src/cth_surefire.erl
@@ -265,10 +265,11 @@ on_tc_skip(Suite,Tc, Res, State0) ->
 		State0
 	end,
     State2 = end_tc(Tc,[],Res,init_tc(set_suite(Suite,State1),[])),
+    CurrGroup = State2#state.curr_group,
     State =
-        case Tc of
-            end_per_group ->
-                State2#state{curr_group = tl(State2#state.curr_group)};
+        case {Tc, is_list(CurrGroup) andalso length(CurrGroup)>0}of
+            {end_per_group, true} ->
+                State2#state{curr_group = tl(CurrGroup)};
             _ ->
                 State2
         end,