#437 Expose an event to skip suite errors

src/Tools/Performance Toolkit/App/src/BCPTLine.Codeunit.al

@@ -164,7 +164,12 @@ codeunit 149005 "BCPT Line"
     var
         BCPTLogEntry: Record "BCPT Log Entry";
         BCPTRoleWrapperImpl: Codeunit "BCPT Role Wrapper"; // single instance
+        Handled: Boolean;
     begin
+        OnBeforeAddLogEntry(BCPTLine, Operation, ExecutionSuccess, Message, handled);
+
+        if Handled then
+            exit;
         BCPTLine.Testfield("BCPT Code");
         BCPTRoleWrapperImpl.GetBCPTHeader(BCPTHeader);
         Clear(BCPTLogEntry);
@@ -346,4 +351,11 @@ codeunit 149005 "BCPT Line"
         Parm := format(FldRef.Value, 0, 9);
         exit(true);
     end;
+
+    local procedure OnBeforeAddLogEntry(var BCPTLine: Record "BCPT Line"; var Operation: Text; var ExecutionSuccess: Boolean; var Message: Text; var Handled: Boolean)
+    var
+        BCPTTestSuite: Codeunit "BCPT Test Suite";
+    begin
+        BCPTTestSuite.OnBeforeBCPTLineAddLogEntryWrapper(BCPTLine, Operation, ExecutionSuccess, Message, Handled);
+    end;
 }

src/Tools/Performance Toolkit/App/src/BCPTTestSuite.Codeunit.al

@@ -411,4 +411,36 @@ codeunit 149006 "BCPT Test Suite"
         BCPTLine.SetRange("BCPT Code", SuiteCode);
         BCPTLine.SetRange("Codeunit ID", CodeunitID);
     end;
+
+    #region BCPTLineCodunitFacade
+    /// <summary>
+    /// Wrapper for OnBeforeBCPTLineAddLogEntry since it is not possible subscribe to an event in a object with scope internal
+    /// This one converts BCPTLine to variables instead of a record.
+    /// </summary>
+    /// <param name="BCPTLine"></param>
+    /// <param name="Operation"></param>
+    /// <param name="ExecutionSuccess"></param>
+    /// <param name="Message"></param>
+    /// <param name="Handled"></param>
+    internal procedure OnBeforeBCPTLineAddLogEntryWrapper(var BCPTLine: Record "BCPT Line"; var Operation: Text; var ExecutionSuccess: Boolean; var Message: Text; var Handled: Boolean)
+    begin
+        OnBeforeBCPTLineAddLogEntry(BCPTLine."BCPT Code", BCPTLine."Codeunit ID", BCPTLine.Description, Operation, ExecutionSuccess, Message, Handled);
+    end;
+
+    /// <summary>
+    /// This event is raised before a log entry is added to the BCPT Line table.
+    /// It can be used to skip errors which are not relevant for the test suite. Like unused handler functions.
+    /// </summary>
+    /// <param name="SuiteCode"></param>
+    /// <param name="CodeunitId"></param>
+    /// <param name="Description"></param>
+    /// <param name="Operation"></param>
+    /// <param name="ExecutionSuccess"></param>
+    /// <param name="Message"></param>
+    /// <param name="Handled"></param>
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeBCPTLineAddLogEntry(SuiteCode: Code[10]; CodeunitId: Integer; Description: Text; var Operation: Text; var ExecutionSuccess: Boolean; var Message: Text; var Handled: Boolean)
+    begin
+    end;
+    #endregion BCPTLineCodunitFacade
 }