bcquality/microsoft/knowledge/testing/use-library-codeunits-for-test-fixtures.bad.al

codeunit 50411 "Test Library Fixtures Bad"
{
    Subtype = Test;

    [Test]
    procedure OrderUsesHandRolledFixtures()
    var
        Customer: Record Customer;
        SalesHeader: Record "Sales Header";
    begin
        // Hand-rolled customer: a chosen "No." with no number-series entry and
        // none of the mandatory fields a real customer carries. Bypasses the
        // setup production code assumes and breaks when the schema adds a
        // required field this test does not set.
        Customer.Init();
        Customer."No." := 'X';
        Customer.Insert();

        SalesHeader.Init();
        SalesHeader."Document Type" := SalesHeader."Document Type"::Order;
        SalesHeader."No." := 'SO-X';
        SalesHeader.Validate("Sell-to Customer No.", Customer."No.");
        SalesHeader.Insert(true);
    end;
}