anchor.diff:  var
     lType : TLocalTimeType;
   begin
  -  lType := fTimeZone.GetLocalTimeType(fStdStart);
  +  lType := FTZ.GetLocalTimeType(fStdStart);
     CheckEquals(ord(lttStandard), ord(lType), 'Expected local Standard time type');
   end;
   
  
positive.code:   LExpDateTime: {$IFDEF FPC}AnsiString{$ELSE}String{$ENDIF};
    LActDateTime: {$IFDEF FPC}AnsiString{$ELSE}String{$ENDIF};
  begin
    DateTimeToString(LActDateTime, FMT_D_T_ISO, fTimeZone.AmbiguousTimeEnd(fYear));
    DateTimeToString(LExpDateTime, FMT_D_T_ISO, fAmbEnd);
    CheckEquals(LExpDateTime, LActDateTime, 'AmbiguousTimeEnd');
  end;
  
negative.code:   const
      FMT_D_T_ISO = 'yyyy-mm-dd hh:nn:ss';
    private
      FTimeZoneID: string;
      FTZ: TBundledTimeZone;
      FYear : Word;
  
      fStdEnd,
      FInvStart,
      FInvEnd,
      FDstStart,
      FDstEnd,
      FAmbStart,
      FAmbEnd,
      FStdStart: TDateTime;
  
      function RandomDate(AFromDateTime, AToDateTime: TDateTime) : TDateTime;
    protected
      procedure SetUp; override;
      procedure TearDown; override;
  