paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Webassembly also has reversed clean - most likely 32/64 bits issue, not delphi/FPC issue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-11 10:29:36 +02:00
parent e6c7efe057
commit e4ded6e277
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/rtl-generics/tests/tests.generics.dictionary.pas
View File

@ -175,7 +175,7 @@ end;
procedure TTestSimpleDictionary.DoKeyNotify(ASender: TObject; const AItem: Integer; AAction: TCollectionNotification);
begin
Writeln(FnotifyMessage+' Notification',FCurrentKeyNotify);
Writeln(FnotifyMessage+' Notification ',FCurrentKeyNotify);
AssertSame(FnotifyMessage+' Correct sender', FDict,aSender);
if (FCurrentKeyNotify>=Length(FExpectKeys)) then
Fail(FnotifyMessage+' Too many notificiations');
@ -185,7 +185,7 @@ end;
procedure TTestSimpleDictionary.DoValueNotify(ASender: TObject; const AItem: String; AAction: TCollectionNotification);
begin
Writeln(FnotifyMessage+' value Notification',FCurrentValueNotify);
Writeln(FnotifyMessage+' value Notification ',FCurrentValueNotify);
AssertSame(FnotifyMessage+' value Correct sender', FDict,aSender);
if (FCurrentValueNotify>=Length(FExpectValues)) then
Fail(FnotifyMessage+' Too many value notificiations');
@ -449,12 +449,24 @@ begin
DoneExpectKeys;
end;
Const
{$IFDEF FPC}
{$IFNDEF CPUWASM}
ReverseDeleteNotification = True;
{$ElSE}
ReverseDeleteNotification = False;
{$ENDIF}
{$ELSE}
ReverseDeleteNotification = False;
{$ENDIF}
procedure TTestSimpleDictionary.TestNotificationDelete;
begin
DoAdd(3);
Dict.OnKeyNotify:=@DoKeyNotify;
SetExpectKeys('Clear',[1,2,3],[cnRemoved,cnRemoved,cnRemoved],{$IFDEF FPC}true{$ELSE}False{$endif});
SetExpectKeys('Clear',[1,2,3],[cnRemoved,cnRemoved,cnRemoved],ReverseDeleteNotification);
Dict.Clear;
DoneExpectKeys;
end;
@ -471,7 +483,7 @@ procedure TTestSimpleDictionary.TestValueNotificationDelete;
begin
DoAdd(3);
Dict.OnValueNotify:=@DoValueNotify;
SetExpectValues('Clear',['1','2','3'],[cnRemoved,cnRemoved,cnRemoved],{$IFDEF FPC}true{$ELSE}False{$endif});
SetExpectValues('Clear',['1','2','3'],[cnRemoved,cnRemoved,cnRemoved],ReverseDeleteNotification);
Dict.Clear;
DoneExpectValues;
end;