common_test: Fix cte_track suite name for suites without init_per_suite

When a suite does not export init_per_suite/1, Common Test uses
ct_framework as the callback module. The cte_track event handler
would then print "ct_framework:" instead of the actual suite name.

Fix by deferring the suite header when ct_framework handles
init_per_suite, then resolving it from the first tc_start event
that carries the real suite name (either init_per_group or a
test case).

Author: u3s

lib/common_test/src/cte_track.erl

@@ -66,10 +66,30 @@ handle_event(#event{name = tc_start,
                     data = {Suite, init_per_suite}},
              State0 = #{device := D,
                        test_stats := TestStats}) ->
-    print(D, "~n~p: ", [Suite]),
-    State1 = maps:put(suite, Suite, State0),
+    %% When Suite is ct_framework the real suite lacks init_per_suite;
+    %% defer header printing until the first real tc_start arrives.
+    SuiteName = case Suite of
+                    ct_framework -> pending;
+                    _ -> print(D, "~n~p: ", [Suite]), Suite
+                end,
+    State1 = maps:put(suite, SuiteName, State0),
     State = maps:put(suite_stats0, TestStats, State1),
     {ok, State};
+handle_event(#event{name = tc_start,
+                    data = {Suite, {init_per_group, GroupName, _}}},
+             State = #{device := D, suite := pending})
+  when Suite =/= ct_framework ->
+    %% Resolve deferred suite header from first init_per_group
+    print(D, "~n~p: ", [Suite]),
+    State1 = maps:put(suite, Suite, State),
+    {ok, maps:put(group, GroupName, State1)};
+handle_event(#event{name = tc_start,
+                    data = {Suite, Case}},
+             State = #{device := D, suite := pending})
+  when is_atom(Case), Case =/= end_per_suite ->
+    %% Resolve deferred suite header from first test case
+    print(D, "~n~p: ", [Suite]),
+    {ok, maps:put(suite, Suite, State)};
 handle_event(#event{name = tc_start,
                     data = {_Suite, {init_per_group, GroupName, _}}},
              State) ->