Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-07 09:56:52 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Park testing knowledge files for later review

Browse source
This commit is contained in:
Jeffrey Bulanadi 2026-06-15 07:55:26 +08:00
parent 822cae1b27
commit c4ecab140b
6 changed files with 167 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

39
community/knowledge/testing/initialize-function-pattern.good.al Normal file
View file

@ -0,0 +1,39 @@
codeunit 50100 "Sales Discount Tests"
{
Subtype = Test;
TestPermissions = Disabled;
var
LibrarySales: Codeunit "Library - Sales";
LibraryVariableStorage: Codeunit "Library - Variable Storage";
IsInitialized: Boolean;
[Test]
procedure PostSalesOrderCreatesHeader()
var
SalesHeader: Record "Sales Header";
begin
Initialize();
LibrarySales.CreateSalesHeader(SalesHeader, SalesHeader."Document Type"::Order, LibrarySales.CreateCustomerNo());
if SalesHeader."No." = '' then Error('Header number not assigned');
end;
[Test]
procedure SalesInvoiceCarriesSellToCustomer()
var
SalesHeader: Record "Sales Header";
CustomerNo: Code[20];
begin
Initialize();
CustomerNo := LibrarySales.CreateCustomerNo();
LibrarySales.CreateSalesHeader(SalesHeader, SalesHeader."Document Type"::Invoice, CustomerNo);
if SalesHeader."Sell-to Customer No." <> CustomerNo then Error('Sell-to customer mismatch');
end;
local procedure Initialize()
begin
LibraryVariableStorage.Clear(); // runs every test, not just on first init
if IsInitialized then exit;
LibrarySales.SetCreditWarningsToNoWarnings();
IsInitialized := true;
Commit();
end;
}