mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
Add 18 more community AL/BC patterns across appsource, data-modeling, error-handling, security, style, testing, ui, upgrade, and web-services
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.
This commit is contained in:
parent
07e324ddbc
commit
a4d85c3e9e
50 changed files with 1262 additions and 0 deletions
33
microsoft/knowledge/testing/ui-test-codeunit-naming.good.al
Normal file
33
microsoft/knowledge/testing/ui-test-codeunit-naming.good.al
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
codeunit 50105 "Item Price Testing"
|
||||
{
|
||||
Subtype = Test;
|
||||
|
||||
[Test]
|
||||
procedure GetPrice_CustomerPrice_ReturnsUnitPrice()
|
||||
var
|
||||
Customer: Record Customer;
|
||||
Item: Record Item;
|
||||
UnitPrice, LineDiscPct: Decimal;
|
||||
begin
|
||||
ItemPriceMgt.GetSalesPrice(Customer."No.", Item."No.", '', UnitPrice, LineDiscPct);
|
||||
end;
|
||||
}
|
||||
|
||||
codeunit 50106 "Item Price Testing_UT"
|
||||
{
|
||||
Subtype = Test;
|
||||
|
||||
[Test]
|
||||
procedure Page_EnterCustomerAndItem_FactBoxShowsPrice()
|
||||
var
|
||||
Customer: Record Customer;
|
||||
Item: Record Item;
|
||||
ItemPricePage: TestPage "Item Price";
|
||||
Assert: Codeunit "Library Assert";
|
||||
begin
|
||||
ItemPricePage.OpenNew();
|
||||
ItemPricePage.CustomerNo.SetValue(Customer."No.");
|
||||
ItemPricePage.ItemNo.SetValue(Item."No.");
|
||||
Assert.AreEqual('100.00', ItemPricePage.PriceInfo.UnitPrice.Value(), '');
|
||||
end;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue