1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| Quintiq file version 2.0
| #parent: #root
| Method VerifyIncludeExcludeSetupExpectationUnits (
| MacroPlan macroplan,
| Strings lines,
| Boolean expectedDefaultAllIncluded
| ) as owning Units
| {
| TextBody:
| [*
| // Setup test - what entities expected include or exclude
| linesSP := selectset( lines, Elements, line, line.StartsWith( 'Excluded,Unit,' ) or line.StartsWith( 'Included,Unit,' ) );
|
| expectedIncludedUnits := construct( Units );
| expectedExcludedUnits := construct( Units );
| traverse( linesSP, Elements, line )
| {
| if( line.StartsWith( 'Included,Unit,' ) )
| {
| unitID := line.ReplaceAll( 'Included,Unit,', '' ).TrimBoth();
| expectedIncludedUnits.Add( select( macroplan, Unit, unit, unit.ID() = unitID ) );
| }
| else
| {
| unitID := line.ReplaceAll( 'Excluded,Unit,', '' ).TrimBoth();
| expectedExcludedUnits.Add( select( macroplan, Unit, unit, unit.ID() = unitID ) );
| }
| }
|
| expectedUnits := selectset( macroplan, Unit, unit, expectedDefaultAllIncluded );
|
| expectedUnits := ifexpr( expectedDefaultAllIncluded,
| expectedUnits.Difference( expectedExcludedUnits ),
| expectedUnits.Add( expectedIncludedUnits ) );
|
| return &expectedUnits;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
