paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 09:51:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Change tstringlistexchange test code to give different error values and check that sort is done properly instead of requiring a given number of exchanges

Browse Source 
git-svn-id: trunk@40547 -
This commit is contained in:
pierre 2018-12-14 09:51:45 +00:00
parent bf7af550c8
commit 0fafe640c5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test/units/classes/tstringlistexchange.pp
View File

@ -64,15 +64,21 @@ begin
msl.OnChange := @dummy.Change;
msl.Sort;
// TMyStringList.ExchangeItems called 5 times
if msl.ExchangeCount <> 5 then
Halt(1);
// if msl.ExchangeCount <> 5 then
// Seems to be done in 4 exchanges
// Check that names are ordered correctly instead
if (msl[0] <> 'Alpha') or
(msl[1] <> 'Beta') or
(msl[2] <> 'Delta') or
(msl[3] <> 'Gamma') then
Halt(2);
// OnChange called once in Sort
if dummy.ExchangeCount <> 1 then
Halt(1);
Halt(3);
finally
msl.Free;
end;
finally
dummy.Free;
end;
end.
end.