bcquality/microsoft/knowledge/testing/test-data-must-be-random-and-complete.good.al

[Test]
procedure PostsSalesOrderForRandomCustomer()
var
    Customer: Record Customer;
    SalesHeader: Record "Sales Header";
begin
    // Random, collision-free customer — no assumption about what exists.
    LibrarySales.CreateCustomer(Customer);
    LibrarySales.CreateSalesHeader(
        SalesHeader, SalesHeader."Document Type"::Order, Customer."No.");

    // ... add lines, post, assert ...
end;