bugfix

yypsybs

2023-09-22 585b0c8daf1305c498186609fb82b79c12a02e29

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
Quintiq file version 2.0
#parent: #root
Method VerifyKPIFixedCost (
  MacroPlan macroplan,
  Real expectedValue,
  Real timeoutInSeconds,
  Real elapsedInSeconds
) as stream[UTF_UnitTestMPBase]
{
  TextBody:
  [*
    actual := macroplan.GetKPIFixedCost().Round( 0 );
    currency := macroplan.BaseCurrency().Name()
    kpiMatch := actual = expectedValue;
    
    ret := emit( this );
    
    if( not kpiMatch )
    {
      if( elapsedInSeconds < timeoutInSeconds )
      {
        waitFor := 0.5;
        wait := stream[Void]::Wait( Duration::Seconds( waitFor ) );
        ret := ret->After( wait )->VerifyKPIFixedCost( macroplan, expectedValue, timeoutInSeconds, elapsedInSeconds + waitFor );
      }
      else
      {
        this.Run().RegisterFailure( 'Expected KPI value for Fixed cost is ' + [String]expectedValue + ' ' + currency + ' but actual value is ' + [String]actual  + ' ' + currency);
      }
    }
    
    return ret;
  *]
  InterfaceProperties { Accessibility: 'Module' }
}