mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 22:56:55 +01:00
a4d85c3e9e
Second contribution from CURABIS ApS, generalized from patterns observed across real AppSource/PTE development. Cross-checked against the current microsoft/knowledge corpus before opening; several originally-drafted candidates were dropped as duplicates of existing files.
29 lines
997 B
Perl
29 lines
997 B
Perl
[Test]
|
|
procedure GetPrice_CustomerPrice_ReturnsCorrectUnitPrice()
|
|
var
|
|
Customer: Record Customer;
|
|
Item: Record Item;
|
|
UnitPrice, LineDiscPct: Decimal;
|
|
begin
|
|
// [GIVEN] a customer with a price list line at 100
|
|
LibrarySales.CreateCustomerWithPrice(Customer, Item, '', 100);
|
|
// [WHEN]
|
|
ItemPriceMgt.GetSalesPrice(Customer."No.", Item."No.", '', UnitPrice, LineDiscPct);
|
|
// [THEN]
|
|
Assert.AreEqual(100, UnitPrice, 'Unit price must match price list');
|
|
end;
|
|
|
|
[Test]
|
|
procedure GetPriceTiers_CustomerTier_ReturnsOneTierLine()
|
|
var
|
|
Customer: Record Customer;
|
|
Item: Record Item;
|
|
TempBuffer: Record "Item Price Tier Buffer" temporary;
|
|
begin
|
|
// [GIVEN] a customer with a tier price at min qty 10
|
|
LibrarySales.CreateCustomerWithTierPrice(Customer, Item, '', 10, 90);
|
|
// [WHEN]
|
|
ItemPriceMgt.GetSalesPriceTiers(Customer."No.", Item."No.", '', TempBuffer);
|
|
// [THEN]
|
|
Assert.AreEqual(1, TempBuffer.Count(), 'Exactly one tier line expected');
|
|
end;
|