Enterprise AL Development: Automated Testing & CI/CD Pipelines

codeunit 50170 "Expense Agent Test Suite"
{
    Subtype = Test;
    TestPermissions = Restrictive;

    var
        Assert: Codeunit "Library - Assert";
        LibraryExpense: Codeunit "Library - Expense";
        IsInitialized: Boolean;

    [Test]
    procedure TestAutoApprovalWithinThreshold()
    var
        ExpenseHeader: Record "Expense Header";
        AgentSetup: Record "Agent Tolerance Setup";
    begin
        // 1. Setup Test Fixtures
        Initialize();
        AgentSetup.Get();

        // 2. Execute Action (Expense total within auto-approve limit)
        LibraryExpense.CreateExpenseHeader(ExpenseHeader, AgentSetup."Auto-Approve Threshold" - 50);
        Codeunit.Run(Codeunit::"Autonomous Expense Agent Action", ExpenseHeader);

        // 3. Verify Output
        ExpenseHeader.Find();
        Assert.AreEqual(
            ExpenseHeader."Agent Processing Status"::"Auto-Approved by Agent",
            ExpenseHeader."Agent Processing Status",
            'Expense within threshold should be auto-approved by AI Agent.'
        );
    end;

    [Test]
    procedure TestEscalationExceedingThreshold()
    var
        ExpenseHeader: Record "Expense Header";
        AgentSetup: Record "Agent Tolerance Setup";
    begin
        Initialize();
        AgentSetup.Get();

        // High-value expense exceeding threshold
        LibraryExpense.CreateExpenseHeader(ExpenseHeader, AgentSetup."Auto-Approve Threshold" + 500);
        Codeunit.Run(Codeunit::"Autonomous Expense Agent Action", ExpenseHeader);

        ExpenseHeader.Find();
        Assert.AreEqual(
            ExpenseHeader."Agent Processing Status"::"Pending Human Approval",
            ExpenseHeader."Agent Processing Status",
            'High value expense must escalate to human finance approval.'
        );
    end;

    local procedure Initialize()
    begin
        if IsInitialized then
            exit;
        IsInitialized := true;
    end;
}

name: $(Build.DefinitionName)_$(Date:yyyyMMdd)$(Rev:.r)

trigger:
  branches:
    include:
      - main
      - release/*

pool:
  vmImage: 'windows-latest'

steps:
- task: ALGoBuildApp@1
  displayName: 'Compile AL Extension & Run Tests'
  inputs:
    licenseFileUrl: '$(BC_DEVELOPMENT_LICENSE)'
    runTests: true
    failOnTestFailure: true

- task: ALGoDeployApp@1
  displayName: 'Deploy to Business Central Production SaaS'
  inputs:
    environmentName: 'Production'
    authContext: '$(BC_SAAS_AUTH_SECRET)'
  condition: and(succeeded(), eq(variables['Build.SourceBranch'], 'refs/heads/main'))