Create Test Runner Codeunits
You can create test runner codeunits to manage the execution of test codeunits and to integrate with test management or test reporting frameworks. By integrating with a test management framework, you can automate your tests and enable them to run unattended.
To create a test runner codeunit, create a codeunit and set the SubType Property to TestRunner.
To specify what changes in the database you want to roll back after the tests in the test runner codeunit execute, set the TestIsolation Property.
Test runner codeunits include the following triggers:
In the OnRun trigger, you'll enter the code to run the codeunits. It runs when you execute the codeunit and before the test methods run. You can use the OnBeforeTestRun and the OnAfterTestRun triggers to perform preprocessing and postprocessing, such as initialization or logging test results. If you implement the OnBeforeTestRun trigger, then it executes before each test method executes. If you implement the OnAfterTestRun trigger, then it executes after each test method executes and also suppresses the automatic display of the results message.
Warning
The OnBeforeTestRun and OnAfterTestRun triggers always run in their own transactions, regardless of the value of the TestIsolation Property, the value of the TransactionModel Property, or the outcome of a test method.
Example
This sample codeunit runs three test codeunits in the automated application test libraries.
codeunit 50101 TestRunnerCodeunit
{
Subtype = TestRunner;
trigger OnRun()
begin
Codeunit.RUN(Codeunit::"ERM Vendor Statistics");
Codeunit.RUN(Codeunit::"ERM Sales Quotes");
Codeunit.RUN(Codeunit::"ERM Dimension");
end;
}
You may want to define your test suite in a table and then write code in the test runner codeunit to iterate through the items in the table. And then run each test codeunit. In that case, you can make use of the following example.
codeunit 50102 TestRunnerCodeunit
{
Subtype = TestRunner;
trigger OnRun()
var
EnabledTestCodeunit: Record "CAL Test Enabled Codeunit";
Object: Record "Object";
begin
if EnabledTestCodeunit.FINDSET then
repeat
if Object.GET(ObjectType::Codeunit, '', EnabledTestCodeunit."Test Codeunit ID") then
CODEUNIT.RUN(EnabledTestCodeunit."Test Codeunit ID");
until EnabledTestCodeunit.NEXT = 0
end;
}