Microsoft/bcquality
1
0
Fork 0
mirror of https://github.com/microsoft/BCQuality.git synced 2026-08-06 17:36:53 +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

32
community/knowledge/testing/initialize-function-pattern.bad.al Normal file
View file

@ -0,0 +1,32 @@
codeunit 50101 "Sales Discount Tests"
{
Subtype = Test;
TestPermissions = Disabled;
var
LibrarySales: Codeunit "Library - Sales";
[Test]
procedure PostSalesOrderCreatesHeader()
var
SalesHeader: Record "Sales Header";
begin
// No Initialize() - setup bloat repeated in every test.
// No LibraryVariableStorage.Clear() - stale handler bindings carry over from prior tests.
LibrarySales.SetCreditWarningsToNoWarnings();
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
// Identical setup pasted again. Change the requirement once, miss it here.
LibrarySales.SetCreditWarningsToNoWarnings();
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;
}