Executed after a test function of a test codeunit has been run.

OnAfterTestRun(CodeunitID : Integer;CodeunitName : Text[30];FunctionName : Text[128];Success : Boolean)

Parameters

CodeunitID

Type: IntegerThe ID of the codeunit that has run.
CodeunitName

Type: TextThe name of the test codeunit that has run.
FunctionName

Type: TextThe name of the test function that has run.
Note
This parameter is empty when the OnAfterTestRun trigger is called for the whole test codeunit.
Success

Type: Booleantrue indicates that the test function run succeeded; otherwise, false indicates that the test function run failed.

Applies To

Test runner codeunits. Test runner codeunits have the SubType Property (Codeunit) set to TestRunner.

Note
This trigger is optional and not available on a test runner codeunit by default. To implement this trigger, you must manually add it as a function.

Remarks

A test runner codeunit manages the execution of test codeunits that are run from its OnRun function. When a test codeunit runs, it executes each test function one at a time in the codeunit. When implemented, the OnAfterTestRun trigger is called after each test function has run and after all of the test codeunit has run.

The OnAfterTestRun trigger suppresses the automatic display of the results message after the test codeunit runs.

Note
To return the error message for a failed test function run, use the GETLASTERRORTEXT Function.

You can use the OnAfterTestRun trigger to perform post-processing, such as logging, or to automate tests by integrating the test runner codeunit with a test management framework.

The OnAfterTestRun trigger is run in its own database transaction.

For more information, see Testing the Application and How to: Create a Test Runner Codeunit.

Example

The following OnAfterTestRun trigger code logs test results to a test reporting system. This example requires that you create a record variable named log.

  Copy Code
log.INIT;
log.UnitId := CodeunitId;
log.Unit := CodeunitName;
log.Func := FunctionName;
log.Before := Before;
log.After := CURRENTDATETIME;
If Success THEN
  log.Status := log.Status::Success
ELSE BEGIN
  log.Status := log.Status::Failure;
  IF FunctionName <> '' THEN
	log.Message := GETLASTERRORTEXT;
END
log.INSERT(true);

The GETLASTERRORTEXT function returns the text that was contained in the last error message.

See Also