mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46: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.
15 lines
573 B
Perl
15 lines
573 B
Perl
[Test]
|
|
procedure GetPrice_ThenGetDiscount_ReturnsCorrectValues()
|
|
var
|
|
TempBuffer: Record "Item Price Tier Buffer" temporary;
|
|
UnitPrice, LineDiscPct: Decimal;
|
|
begin
|
|
// [GIVEN] ...
|
|
// [WHEN] first action
|
|
ItemPriceMgt.GetSalesPrice(CustomerNo, ItemNo, '', UnitPrice, LineDiscPct);
|
|
// [WHEN] second action — this is a second test in disguise
|
|
ItemPriceMgt.GetSalesPriceTiers(CustomerNo, ItemNo, '', TempBuffer);
|
|
// [THEN] asserting two unrelated things
|
|
Assert.AreEqual(100, UnitPrice, '');
|
|
Assert.IsFalse(TempBuffer.IsEmpty(), '');
|
|
end;
|