paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 21:46:13 +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

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

@ -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;