mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
587f199814
Relocates the six P1+P2 testing-domain articles (18 files: .md + .good.al + .bad.al each) from community/knowledge/testing/ to microsoft/knowledge/testing/ per maintainer request. Pure git-mv rename; no content or frontmatter changes. Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
32 lines
1.1 KiB
AL
32 lines
1.1 KiB
AL
codeunit 50403 "Test Table Relation Bad"
|
|
{
|
|
Subtype = Test;
|
|
|
|
[Test]
|
|
procedure SalesLineAcceptsExistingItem()
|
|
var
|
|
Customer: Record Customer;
|
|
SalesHeader: Record "Sales Header";
|
|
SalesLine: Record "Sales Line";
|
|
begin
|
|
LibrarySales.CreateCustomer(Customer);
|
|
LibrarySales.CreateSalesHeader(SalesHeader, SalesHeader."Document Type"::Order, Customer."No.");
|
|
|
|
// No item was created. Validating "No." against a non-existent item
|
|
// raises a TableRelation error here, aborting the test at runtime
|
|
// before any assertion runs.
|
|
SalesLine.Init();
|
|
SalesLine."Document Type" := SalesHeader."Document Type";
|
|
SalesLine."Document No." := SalesHeader."No.";
|
|
SalesLine."Line No." := 10000;
|
|
SalesLine.Type := SalesLine.Type::Item;
|
|
SalesLine.Validate("No.", 'GHOST');
|
|
SalesLine.Insert(true);
|
|
|
|
Assert.AreEqual('GHOST', SalesLine."No.", 'Unreachable: validation already failed.');
|
|
end;
|
|
|
|
var
|
|
Assert: Codeunit "Library Assert";
|
|
LibrarySales: Codeunit "Library - Sales";
|
|
}
|