Skip to content

Commit 397ab0a

Browse files
NovoaDevNovoaDev
authored
Merge pull request #32 from NovoaDev/30-test-temporarytablestest
2 parents 5b9472a + 549ca60 commit 397ab0a

29 files changed

+1169
-481
lines changed

‎Dependency-Graph.Test/DepGraphTestANJ.permissionset.al

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,13 @@
1+
/// <summary>
2+
/// permissionset DepGraphTest_ANJ (ID 99990).
3+
/// </summary>
14
permissionset 99990 DepGraphTest_ANJ
25
{
36
Access = Public;
47
Assignable = true;
5-
Permissions = codeunit GenerateFiguresTest_ANJ = X,
6-
codeunit GraphAndMarkdownTest_ANJ = X,
8+
Permissions = codeunit ExpectedValues_ANJ = X,
9+
codeunit FillingProTablesMock_ANJ = X,
10+
codeunit GenerateFiguresTest_ANJ = X,
711
codeunit NumberSequenceTest_ANJ = X,
812
codeunit TemporaryTablesTest_ANJ = X;
913
}

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

Lines changed: 115 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,106 @@
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 1107496048 - NamedType 283617910" size-unit="char" translate="yes" xml:space="preserve">
7+
<source>E1[Take Order Sample] --&gt; E2[DependencyGraph]</source>
8+
<note from="Developer" annotates="general" priority="2"></note>
9+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit ExpectedValues_ANJ - NamedType ExpectedRelationLbl</note>
10+
</trans-unit>
11+
<trans-unit id="Codeunit 1107496048 - NamedType 1699462585" size-unit="char" translate="yes" xml:space="preserve">
12+
<source>```</source>
13+
<note from="Developer" annotates="general" priority="2"></note>
14+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit ExpectedValues_ANJ - NamedType FooterLbl</note>
15+
</trans-unit>
16+
<trans-unit id="Codeunit 1107496048 - NamedType 2619639984" size-unit="char" translate="yes" xml:space="preserve">
17+
<source>```mermaid</source>
18+
<note from="Developer" annotates="general" priority="2"></note>
19+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit ExpectedValues_ANJ - NamedType Header1Lbl</note>
20+
</trans-unit>
21+
<trans-unit id="Codeunit 1107496048 - NamedType 1609892177" size-unit="char" translate="yes" xml:space="preserve">
22+
<source>graph BT</source>
23+
<note from="Developer" annotates="general" priority="2"></note>
24+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit ExpectedValues_ANJ - NamedType Header2Lbl</note>
25+
</trans-unit>
26+
<trans-unit id="Codeunit 1642682097 - NamedType 3993970854" size-unit="char" translate="yes" xml:space="preserve">
27+
<source>DestinationAppID</source>
28+
<note from="Developer" annotates="general" priority="2"></note>
29+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType DestinationAppIDLbl</note>
30+
</trans-unit>
31+
<trans-unit id="Codeunit 1642682097 - NamedType 4198159985" size-unit="char" translate="yes" xml:space="preserve">
32+
<source>displayName</source>
33+
<note from="Developer" annotates="general" priority="2"></note>
34+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType DisplayNameLbl</note>
35+
</trans-unit>
36+
<trans-unit id="Codeunit 1642682097 - NamedType 2393608217" size-unit="char" translate="yes" xml:space="preserve">
37+
<source>a1f81352-6244-48a4-96a0-a81c5aaaa581</source>
38+
<note from="Developer" annotates="general" priority="2"></note>
39+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext01IDLbl</note>
40+
</trans-unit>
41+
<trans-unit id="Codeunit 1642682097 - NamedType 1039689151" size-unit="char" translate="yes" xml:space="preserve">
42+
<source>Take Order Sample</source>
43+
<note from="Developer" annotates="general" priority="2"></note>
44+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext01NameLbl</note>
45+
</trans-unit>
46+
<trans-unit id="Codeunit 1642682097 - NamedType 2471922624" size-unit="char" translate="yes" xml:space="preserve">
47+
<source>BusinessCentralDemos</source>
48+
<note from="Developer" annotates="general" priority="2"></note>
49+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext01PublisherLbl</note>
50+
</trans-unit>
51+
<trans-unit id="Codeunit 1642682097 - NamedType 3053848200" size-unit="char" translate="yes" xml:space="preserve">
52+
<source>3c9a4c22-42f6-4e8f-8b96-744c7fef331f</source>
53+
<note from="Developer" annotates="general" priority="2"></note>
54+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext02IDLbl</note>
55+
</trans-unit>
56+
<trans-unit id="Codeunit 1642682097 - NamedType 3747003922" size-unit="char" translate="yes" xml:space="preserve">
57+
<source>Dependency-Graph</source>
58+
<note from="Developer" annotates="general" priority="2"></note>
59+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext02NameLbl</note>
60+
</trans-unit>
61+
<trans-unit id="Codeunit 1642682097 - NamedType 1333445049" size-unit="char" translate="yes" xml:space="preserve">
62+
<source>ANJ</source>
63+
<note from="Developer" annotates="general" priority="2"></note>
64+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType Ext02PublisherLbl</note>
65+
</trans-unit>
66+
<trans-unit id="Codeunit 1642682097 - NamedType 2272053225" size-unit="char" translate="yes" xml:space="preserve">
67+
<source>id</source>
68+
<note from="Developer" annotates="general" priority="2"></note>
69+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType IdLbl</note>
70+
</trans-unit>
71+
<trans-unit id="Codeunit 1642682097 - NamedType 177224252" size-unit="char" translate="yes" xml:space="preserve">
72+
<source>isInstalled</source>
73+
<note from="Developer" annotates="general" priority="2"></note>
74+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType IsInstalledLbl</note>
75+
</trans-unit>
76+
<trans-unit id="Codeunit 1642682097 - NamedType 3329916367" size-unit="char" translate="yes" xml:space="preserve">
77+
<source>packageId</source>
78+
<note from="Developer" annotates="general" priority="2"></note>
79+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType PackageIdLbl</note>
80+
</trans-unit>
81+
<trans-unit id="Codeunit 1642682097 - NamedType 2135136892" size-unit="char" translate="yes" xml:space="preserve">
82+
<source>publishedAs</source>
83+
<note from="Developer" annotates="general" priority="2"></note>
84+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType PublishedAsLbl</note>
85+
</trans-unit>
86+
<trans-unit id="Codeunit 1642682097 - NamedType 783871344" size-unit="char" translate="yes" xml:space="preserve">
87+
<source>publisher</source>
88+
<note from="Developer" annotates="general" priority="2"></note>
89+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType PublisherLbl</note>
90+
</trans-unit>
91+
<trans-unit id="Codeunit 1642682097 - NamedType 1618117332" size-unit="char" translate="yes" xml:space="preserve">
92+
<source>PTE</source>
93+
<note from="Developer" annotates="general" priority="2"></note>
94+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType ScopeLbl</note>
95+
</trans-unit>
96+
<trans-unit id="Codeunit 1642682097 - NamedType 1408304205" size-unit="char" translate="yes" xml:space="preserve">
97+
<source>SourceAppID</source>
98+
<note from="Developer" annotates="general" priority="2"></note>
99+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType SourceAppIDLbl</note>
100+
</trans-unit>
101+
<trans-unit id="Codeunit 1642682097 - NamedType 2442600875" size-unit="char" translate="yes" xml:space="preserve">
102+
<source>value</source>
103+
<note from="Developer" annotates="general" priority="2"></note>
104+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit FillingProTablesMock_ANJ - NamedType ValueLbl</note>
105+
</trans-unit>
6106
<trans-unit id="Codeunit 3159861850 - NamedType 4030770184" size-unit="char" translate="yes" xml:space="preserve">
7107
<source>App</source>
8108
<note from="Developer" annotates="general" priority="2"></note>
@@ -53,6 +153,21 @@
53153
<note from="Developer" annotates="general" priority="2"></note>
54154
<note from="Xliff Generator" annotates="general" priority="3">Codeunit NumberSequenceTest_ANJ - NamedType ThirdRequestLbl</note>
55155
</trans-unit>
156+
<trans-unit id="Codeunit 1511997686 - NamedType 3734207983" size-unit="char" translate="yes" xml:space="preserve">
157+
<source>Diferent number of records in table %1 than expected</source>
158+
<note from="Developer" annotates="general" priority="2"></note>
159+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit TemporaryTablesTest_ANJ - NamedType DiferentNumberErr</note>
160+
</trans-unit>
161+
<trans-unit id="Codeunit 1511997686 - NamedType 3232656297" size-unit="char" translate="yes" xml:space="preserve">
162+
<source>Markdown text is different than expected</source>
163+
<note from="Developer" annotates="general" priority="2"></note>
164+
<note from="Xliff Generator" annotates="general" priority="3">Codeunit TemporaryTablesTest_ANJ - NamedType MarkdownTextErr</note>
165+
</trans-unit>
166+
<trans-unit id="EnumExtension 2370418707 - EnumValue 983320492 - Property 2879900210" size-unit="char" translate="yes" xml:space="preserve" al-object-target="Enum 1956450053">
167+
<source>Mock</source>
168+
<note from="Developer" annotates="general" priority="2">ESP="WS y Mock"</note>
169+
<note from="Xliff Generator" annotates="general" priority="3">EnumExtension FillingProcessTablesMock_ANJ - EnumValue Mock_ANJ - Property Caption</note>
170+
</trans-unit>
56171
</group>
57172
</body>
58173
</file>

‎Dependency-Graph.Test/doc/Dependency-Graph.Test.pdf

522 KB
Binary file not shown.

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

Lines changed: 44 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,44 @@
1+
/// <summary>
2+
/// Codeunit ExpectedValues_ANJ (ID 99994).
3+
/// </summary>
4+
codeunit 99994 ExpectedValues_ANJ
5+
{
6+
Access = Internal;
7+
8+
/// <summary>
9+
/// GetExpectedMarkdownText.
10+
/// </summary>
11+
/// <returns>Return value of type Text.</returns>
12+
procedure GetExpectedMarkdownText(): Text;
13+
var
14+
ExpectedValueTextBuilder: TextBuilder;
15+
begin
16+
ExpectedValueTextBuilder.AppendLine(Header1Lbl);
17+
ExpectedValueTextBuilder.AppendLine(Header2Lbl);
18+
ExpectedValueTextBuilder.AppendLine(ExpectedRelationLbl);
19+
ExpectedValueTextBuilder.AppendLine();
20+
ExpectedValueTextBuilder.AppendLine(FooterLbl);
21+
22+
exit(ExpectedValueTextBuilder.ToText());
23+
end;
24+
25+
/// <summary>
26+
/// GetExpectedMarkdownMermaidText.
27+
/// </summary>
28+
/// <returns>Return value of type Text.</returns>
29+
procedure GetExpectedMarkdownMermaidText(): Text;
30+
var
31+
ExpectedValueTextBuilder: TextBuilder;
32+
begin
33+
ExpectedValueTextBuilder.AppendLine(Header2Lbl);
34+
ExpectedValueTextBuilder.AppendLine(ExpectedRelationLbl);
35+
36+
exit(ExpectedValueTextBuilder.ToText());
37+
end;
38+
39+
var
40+
ExpectedRelationLbl: Label 'E1[Take Order Sample] --> E2[DependencyGraph]';
41+
FooterLbl: Label '```';
42+
Header1Lbl: Label '```mermaid';
43+
Header2Lbl: Label 'graph BT';
44+
}

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

Lines changed: 116 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,116 @@
1+
/// <summary>
2+
/// Codeunit "FillingProTablesMock_ANJ" (ID 99993).
3+
/// </summary>
4+
codeunit 99993 FillingProTablesMock_ANJ implements FillingProcessingTables_ANJ
5+
{
6+
Access = Internal;
7+
8+
/// <summary>
9+
/// GetExtensions.
10+
/// </summary>
11+
/// <returns>Return value of type Text.</returns>
12+
procedure GetExtensions(): Text;
13+
var
14+
ExtensionArry: JsonArray;
15+
AuxJsonObject: JsonObject;
16+
Extensions: Text;
17+
begin
18+
AddNewExtensionToJsonArry(
19+
ExtensionArry,
20+
Ext01IDLbl,
21+
Ext01NameLbl,
22+
Ext01PublisherLbl,
23+
ScopeLbl);
24+
25+
AddNewExtensionToJsonArry(
26+
ExtensionArry,
27+
Ext02IDLbl,
28+
Ext02NameLbl,
29+
Ext02PublisherLbl,
30+
ScopeLbl);
31+
32+
AuxJsonObject.Add(ValueLbl, ExtensionArry);
33+
AuxJsonObject.WriteTo(Extensions);
34+
35+
exit(Extensions);
36+
end;
37+
38+
/// <summary>
39+
/// GetRelations.
40+
/// </summary>
41+
/// <returns>Return value of type Text.</returns>
42+
procedure GetRelations(): Text;
43+
var
44+
RelationsArry: JsonArray;
45+
Relations: Text;
46+
begin
47+
AddNewRelationToJsonArry(RelationsArry,
48+
Ext01IDLbl,
49+
Ext02IDLbl);
50+
RelationsArry.WriteTo(Relations);
51+
52+
exit(Relations);
53+
end;
54+
55+
/// <summary>
56+
/// AddNewExtensionToJsonArry.
57+
/// </summary>
58+
/// <param name="ExtensionArry">VAR JsonArray.</param>
59+
/// <param name="PackageId">Text.</param>
60+
/// <param name="DisplayName">Text.</param>
61+
/// <param name="Publisher">Text.</param>
62+
/// <param name="PublishedAs">Text.</param>
63+
internal procedure AddNewExtensionToJsonArry(
64+
var ExtensionArry: JsonArray;
65+
PackageId: Text;
66+
DisplayName: Text;
67+
Publisher: Text;
68+
PublishedAs: Text);
69+
var
70+
ExtensionJsonObject: JsonObject;
71+
begin
72+
ExtensionJsonObject.Add(IdLbl, PackageId);
73+
ExtensionJsonObject.Add(PackageIdLbl, PackageId);
74+
ExtensionJsonObject.Add(DisplayNameLbl, DisplayName);
75+
ExtensionJsonObject.Add(PublisherLbl, Publisher);
76+
ExtensionJsonObject.Add(PublishedAsLbl, PublishedAs);
77+
ExtensionJsonObject.Add(IsInstalledLbl, true);
78+
79+
ExtensionArry.Add(ExtensionJsonObject);
80+
end;
81+
82+
/// <summary>
83+
/// AddNewRelationToJsonArry.
84+
/// /// </summary>
85+
/// <returns>Return variable NewRelationsLine of type Integer.</returns>
86+
local procedure AddNewRelationToJsonArry(
87+
var RelationsArry: JsonArray;
88+
SourceAppID: Guid;
89+
DestinationAppID: Guid);
90+
var
91+
RelationJsonObject: JsonObject;
92+
begin
93+
RelationJsonObject.Add(SourceAppIDLbl, SourceAppID);
94+
RelationJsonObject.Add(DestinationAppIDLbl, DestinationAppID);
95+
96+
RelationsArry.Add(RelationJsonObject);
97+
end;
98+
99+
var
100+
DestinationAppIDLbl: Label 'DestinationAppID';
101+
DisplayNameLbl: Label 'displayName';
102+
Ext01IDLbl: Label 'a1f81352-6244-48a4-96a0-a81c5aaaa581';
103+
Ext01NameLbl: Label 'Take Order Sample';
104+
Ext01PublisherLbl: Label 'BusinessCentralDemos';
105+
Ext02IDLbl: Label '3c9a4c22-42f6-4e8f-8b96-744c7fef331f';
106+
Ext02NameLbl: Label 'Dependency-Graph';
107+
Ext02PublisherLbl: Label 'ANJ';
108+
IdLbl: Label 'id';
109+
IsInstalledLbl: Label 'isInstalled';
110+
PackageIdLbl: Label 'packageId';
111+
PublishedAsLbl: Label 'publishedAs';
112+
PublisherLbl: Label 'publisher';
113+
ScopeLbl: Label 'PTE';
114+
SourceAppIDLbl: Label 'SourceAppID';
115+
ValueLbl: Label 'value';
116+
}

‎Dependency-Graph.Test/src/Test/FillingProcessTablesMockANJ.EnumExt.al

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
/// <summary>
2+
/// EnumExtension FillingProcessingTablesMock_ANJ (ID 99990) extends Record FillingProcessingTables_ANJ.
3+
/// </summary>
4+
enumextension 99990 FillingProcessTablesMock_ANJ extends FillingProcessingTables_ANJ
5+
{
6+
value(99990; Mock_ANJ)
7+
{
8+
Caption = 'Mock', comment = 'ESP="WS y Mock"';
9+
Implementation = FillingProcessingTables_ANJ = FillingProTablesMock_ANJ;
10+
}
11+
}

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

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,9 @@ codeunit 99991 GenerateFiguresTest_ANJ
77
Subtype = Test;
88
TestPermissions = Disabled;
99

10+
/// <summary>
11+
/// GenerateFigures.
12+
/// </summary>
1013
[Test]
1114
procedure GenerateFigures();
1215
var
@@ -24,9 +27,9 @@ codeunit 99991 GenerateFiguresTest_ANJ
2427
GetFigureText(ScopeDevFigure, ScopeGlobalFigure, ScopePTEFigure);
2528

2629
// [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+
LibraryAssert.AreEqual(ScopePTEFigure, StrSubstNo(SquareRectangleFigureLbl, IdentityLbl, AppNameLbl), GenerateFigureErr);
31+
LibraryAssert.AreEqual(ScopeGlobalFigure, StrSubstNo(CircleFigureLbl, IdentityLbl, AppNameLbl), GenerateFigureErr);
32+
LibraryAssert.AreEqual(ScopeDevFigure, StrSubstNo(RhombusFigureLbl, IdentityLbl, AppNameLbl), GenerateFigureErr);
3033
end;
3134

3235
/// <summary>

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

Lines changed: 0 additions & 8 deletions
This file was deleted.

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

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,9 @@ codeunit 99990 NumberSequenceTest_ANJ
66
Access = Public;
77
Subtype = Test;
88

9+
/// <summary>
10+
/// TestNumberSequence.
11+
/// </summary>
912
[Test]
1013
procedure TestNumberSequence();
1114
var

0 commit comments

Comments
 (0)