mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
6c02d68b4e
Six BC-specific testing-domain knowledge articles in community/knowledge/testing/, each with .good.al/.bad.al samples: - ui-calls-require-test-handlers - tablerelation-requires-prerequisite-records - handlers-enqueue-never-assert - handlerfunctions-attribute-must-match-ui-path - asserterror-needs-expectederror-and-code - use-library-codeunits-for-test-fixtures Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
28 lines
1.1 KiB
AL
28 lines
1.1 KiB
AL
codeunit 50410 "Test Library Fixtures Good"
|
|
{
|
|
Subtype = Test;
|
|
|
|
[Test]
|
|
procedure OrderUsesLibraryCreatedFixtures()
|
|
var
|
|
Customer: Record Customer;
|
|
Item: Record Item;
|
|
SalesHeader: Record "Sales Header";
|
|
SalesLine: Record "Sales Line";
|
|
begin
|
|
// Library codeunits create valid parents: number series, mandatory
|
|
// fields and table relations are all handled for you.
|
|
LibrarySales.CreateCustomer(Customer);
|
|
LibraryInventory.CreateItem(Item);
|
|
LibrarySales.CreateSalesHeader(SalesHeader, SalesHeader."Document Type"::Order, Customer."No.");
|
|
LibrarySales.CreateSalesLine(SalesLine, SalesHeader, SalesLine.Type::Item, Item."No.", LibraryRandom.RandInt(10));
|
|
|
|
Assert.AreEqual(Customer."No.", SalesHeader."Sell-to Customer No.", 'Header should use the created customer.');
|
|
end;
|
|
|
|
var
|
|
Assert: Codeunit "Library Assert";
|
|
LibrarySales: Codeunit "Library - Sales";
|
|
LibraryInventory: Codeunit "Library - Inventory";
|
|
LibraryRandom: Codeunit "Library - Random";
|
|
}
|