Page 130400 CAL Test Suites, source in 29

namespace System.TestTools.TestRunner;

page 130400 "CAL Test Suites"
{
    Caption = 'CAL Test Suites';
    PageType = List;
    SaveValues = true;
    SourceTable = "CAL Test Suite";

    layout
    {
        area(content)
        {
            repeater(Control1)
            {
                ShowCaption = false;
                field(Name; Rec.Name)
                {
                    ApplicationArea = All;
                    ToolTip = 'Specifies the name of the test suite.';
                }
                field(Description; Rec.Description)
                {
                    ApplicationArea = All;
                }
                field("Update Test Coverage Map"; Rec."Update Test Coverage Map")
                {
                    ApplicationArea = All;
                }
                field("Tests to Execute"; Rec."Tests to Execute")
                {
                    ApplicationArea = All;
                }
                field(Failures; Rec.Failures)
                {
                    ApplicationArea = All;
                }
                field("Tests not Executed"; Rec."Tests not Executed")
                {
                    ApplicationArea = All;
                }
            }
        }
    }

    actions
    {
        area(navigation)
        {
            group("Test &Suite")
            {
                Caption = 'Test &Suite';
                action("&Run All")
                {
                    ApplicationArea = All;
                    Caption = '&Run All';
                    Image = Start;
                    ShortCutKey = 'Shift+Ctrl+L';

                    trigger OnAction()
                    var
                        CALTestSuite: Record "CAL Test Suite";
                        CALTestLine: Record "CAL Test Line";
                    begin
                        if CALTestSuite.FindSet() then
                            repeat
                                CALTestLine.SetRange("Test Suite", CALTestSuite.Name);
                                if CALTestLine.FindFirst() then
                                    CODEUNIT.Run(CODEUNIT::"CAL Test Runner", CALTestLine);
                            until CALTestSuite.Next() = 0;
                        Commit();
                    end;
                }
                group(Setup)
                {
                    Caption = 'Setup';
                    Image = Setup;
                    action("E&xport")
                    {
                        ApplicationArea = All;
                        Caption = 'E&xport';

                        trigger OnAction()
                        begin
                            Rec.ExportTestSuiteSetup();
                        end;
                    }
                    action("I&mport")
                    {
                        ApplicationArea = All;
                        Caption = 'I&mport';

                        trigger OnAction()
                        begin
                            Rec.ImportTestSuiteSetup();
                        end;
                    }
                }
                separator(Separator)
                {
                    Caption = 'Separator';
                }
                group(Results)
                {
                    Caption = 'Results';
                    Image = Log;
                    action(Action16)
                    {
                        ApplicationArea = All;
                        Caption = 'E&xport';

                        trigger OnAction()
                        begin
                            Rec.ExportTestSuiteResult();
                        end;
                    }
                    action(Action24)
                    {
                        ApplicationArea = All;
                        Caption = 'I&mport';

                        trigger OnAction()
                        begin
                            Rec.ImportTestSuiteResult();
                        end;
                    }
                }
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref("&Run All_Promoted"; "&Run All")
                {
                }
                actionref("E&xport_Promoted"; "E&xport")
                {
                }
            }
        }
    }
}