Skip to content

Commit 54a6a5d

Browse files
ajn-ldrajn-ldr
committed
Generate Figures Test
1 parent 12649ce commit 54a6a5d

File tree

5 files changed

+101
-4
lines changed

5 files changed

+101
-4
lines changed

‎Dependency-Graph.Test/Translations/Dependency-Graph.Test.g.xlf‎

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,36 @@
33
<file datatype="xml" source-language="en-US" target-language="en-US" original="Dependency-Graph.Test">
44
<body>
55
<group id="body">
6+
<trans-unit id="Codeunit 3159861850 - NamedType 4030770184" size-unit="char" translate="yes" xml:space="preserve">
7+
<source>App</source>
8+
<note from="Developer" annotates="general" priority="2"></note>
9+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType AppNameLbl</note>
10+
</trans-unit>
11+
<trans-unit id="Codeunit 3159861850 - NamedType 1890489750" size-unit="char" translate="yes" xml:space="preserve">
12+
<source>%1((%2))</source>
13+
<note from="Developer" annotates="general" priority="2"></note>
14+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType CircleFigureLbl</note>
15+
</trans-unit>
16+
<trans-unit id="Codeunit 3159861850 - NamedType 3214227760" size-unit="char" translate="yes" xml:space="preserve">
17+
<source>Error generating figures.</source>
18+
<note from="Developer" annotates="general" priority="2"></note>
19+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType GenerateFigureErr</note>
20+
</trans-unit>
21+
<trans-unit id="Codeunit 3159861850 - NamedType 4264074168" size-unit="char" translate="yes" xml:space="preserve">
22+
<source>E1</source>
23+
<note from="Developer" annotates="general" priority="2"></note>
24+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType IdentityLbl</note>
25+
</trans-unit>
26+
<trans-unit id="Codeunit 3159861850 - NamedType 1958646152" size-unit="char" translate="yes" xml:space="preserve">
27+
<source>%1{%2}</source>
28+
<note from="Developer" annotates="general" priority="2"></note>
29+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType RhombusFigureLbl</note>
30+
</trans-unit>
31+
<trans-unit id="Codeunit 3159861850 - NamedType 1518175748" size-unit="char" translate="yes" xml:space="preserve">
32+
<source>%1[%2]</source>
33+
<note from="Developer" annotates="general" priority="2"></note>
34+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit GenerateFiguresTest_ANJ - NamedType SquareRectangleFigureLbl</note>
35+
</trans-unit>
636
<trans-unit id="Codeunit 1844708212 - NamedType 1644787387" size-unit="char" translate="yes" xml:space="preserve">
737
<source>E1</source>
838
<note from="Developer" annotates="general" priority="2"></note>

‎Dependency-Graph.Test/app.json‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,12 @@
1818
"id": "dd0be2ea-f733-4d65-bb34-a28f4624fb14",
1919
"version": "22.0.0.0"
2020
},
21+
{
22+
"id": "5d86850b-0d76-4eca-bd7b-951ad998e997",
23+
"publisher": "Microsoft",
24+
"name": "Tests-TestLibraries",
25+
"version": "22.0.0.0"
26+
},
2127
{
2228
"publisher": "Microsoft",
2329
"name": "Any",

‎Dependency-Graph.Test/src/Test/GenerateFiguresTestANJ.Codeunit.al‎

Lines changed: 60 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -5,4 +5,64 @@ codeunit 99991 GenerateFiguresTest_ANJ
55
{
66
Access = Public;
77
Subtype = Test;
8+
TestPermissions = Disabled;
9+
10+
[Test]
11+
procedure GenerateFigures();
12+
var
13+
ScopeDevFigure: Text;
14+
ScopeGlobalFigure: Text;
15+
ScopePTEFigure: Text;
16+
begin
17+
// [Scenario]
18+
// Verify that the figures are being generated according to each of the extension scopes.
19+
20+
// [Given] Setup:
21+
InitializeDependencyGraphSetup();
22+
23+
// [When] Exercise:
24+
GetFigureText(ScopeDevFigure, ScopeGlobalFigure, ScopePTEFigure);
25+
26+
// [Then] Verify:
27+
LibraryAssert.AreEqual(ScopePTEFigure, StrSubstNo(SquareRectangleFigureLbl, IdentityLbl, AppNameLbl), StrSubstNo(GenerateFigureErr));
28+
LibraryAssert.AreEqual(ScopeGlobalFigure, StrSubstNo(CircleFigureLbl, IdentityLbl, AppNameLbl), StrSubstNo(GenerateFigureErr));
29+
LibraryAssert.AreEqual(ScopeDevFigure, StrSubstNo(RhombusFigureLbl, IdentityLbl, AppNameLbl), StrSubstNo(GenerateFigureErr));
30+
end;
31+
32+
/// <summary>
33+
/// InitializeDependencyGraphSetup
34+
/// </summary>
35+
local procedure InitializeDependencyGraphSetup()
36+
var
37+
DependencyGraphSetup: Record DependencyGraphSetup_ANJ;
38+
begin
39+
DependencyGraphSetup.GetInstance();
40+
DependencyGraphSetup.Validate(ScopePTEFigure, Enum::GeometricFigure_ANJ::SquareRectangle);
41+
DependencyGraphSetup.Validate(ScopeGlobalFigure, Enum::GeometricFigure_ANJ::Circle);
42+
DependencyGraphSetup.Validate(ScopeDevFigure, Enum::GeometricFigure_ANJ::Rhombus);
43+
DependencyGraphSetup.Modify(true);
44+
end;
45+
46+
/// <summary>
47+
/// GetFigureText.
48+
/// </summary>
49+
/// <param name="ScopeDevFigure">VAR Text.</param>
50+
/// <param name="ScopeGlobalFigure">VAR Text.</param>
51+
/// <param name="ScopePTEFigure">VAR Text.</param>
52+
local procedure GetFigureText(var ScopeDevFigure: Text; var ScopeGlobalFigure: Text; var ScopePTEFigure: Text)
53+
begin
54+
ScopePTEFigure := DependencyGraphFacadeANJ.GenerateFigures(Enum::ExtensionScope_ANJ::PTE, IdentityLbl, AppNameLbl);
55+
ScopeGlobalFigure := DependencyGraphFacadeANJ.GenerateFigures(Enum::ExtensionScope_ANJ::Global, IdentityLbl, AppNameLbl);
56+
ScopeDevFigure := DependencyGraphFacadeANJ.GenerateFigures(Enum::ExtensionScope_ANJ::Dev, IdentityLbl, AppNameLbl);
57+
end;
58+
59+
var
60+
DependencyGraphFacadeANJ: Codeunit DependencyGraphFacade_ANJ;
61+
LibraryAssert: Codeunit "Library Assert";
62+
AppNameLbl: Label 'App';
63+
CircleFigureLbl: Label '%1((%2))';
64+
GenerateFigureErr: Label 'Error generating figures.';
65+
IdentityLbl: Label 'E1';
66+
RhombusFigureLbl: Label '%1{%2}';
67+
SquareRectangleFigureLbl: Label '%1[%2]';
868
}

‎Dependency-Graph.Test/src/Test/NumberSequenceTestANJ.Codeunit.al‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,7 @@ codeunit 99990 NumberSequenceTest_ANJ
1717
// Verify that it is initialized and a number series is created correctly.
1818

1919
// [Given] Setup:
20+
LibraryLowerPermissions.SetO365BusFull();
2021

2122
// [When] Exercise:
2223
CheckInitializeAndCreateSomeNumberSeries(FirstRequest, SecondRequest, ThirdRequest);
@@ -34,8 +35,6 @@ codeunit 99990 NumberSequenceTest_ANJ
3435
/// <param name="SecondRequest">VAR Text.</param>
3536
/// <param name="ThirdRequest">VAR Text.</param>
3637
local procedure CheckInitializeAndCreateSomeNumberSeries(var FirstRequest: Text; var SecondRequest: Text; var ThirdRequest: Text)
37-
var
38-
DependencyGraphFacadeANJ: Codeunit DependencyGraphFacade_ANJ;
3938
begin
4039
DependencyGraphFacadeANJ.InitializeNumberSequence();
4140
FirstRequest := DependencyGraphFacadeANJ.GetNextNumberSequence();
@@ -44,6 +43,8 @@ codeunit 99990 NumberSequenceTest_ANJ
4443
end;
4544

4645
var
46+
DependencyGraphFacadeANJ: Codeunit DependencyGraphFacade_ANJ;
47+
LibraryLowerPermissions: Codeunit "Library - Lower Permissions";
4748
LibraryAssert: Codeunit "Library Assert";
4849
FirstRequestLbl: Label 'E1';
4950
NumberSequenceErr: Label 'The number secuence does not correspond to the expected one';

‎Dependency-Graph/src/Setup/DependencyGraphSetupANJ.Table.al‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
/// </summary>
44
table 80800 DependencyGraphSetup_ANJ
55
{
6-
Access = Internal;
6+
Access = Public;
77
Caption = 'Dependency Graph Setup', comment = 'ESP="Configuración del gráfico de dependencia"';
88
DataClassification = CustomerContent;
99
DrillDownPageID = DependencyGraphSetup_ANJ;
@@ -112,7 +112,7 @@ table 80800 DependencyGraphSetup_ANJ
112112
/// <summary>
113113
/// GetInstance.
114114
/// </summary>
115-
internal procedure GetInstance();
115+
procedure GetInstance();
116116
begin
117117
if HasBeenRead then
118118
exit;

0 commit comments

Comments
 (0)