paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extend test so that it also covers the SetToString/StringToSet variants take/return Integer arguments

Browse Source 
git-svn-id: trunk@43047 -
This commit is contained in:
svenbarth 2019-09-21 14:36:16 +00:00
parent ad8de624b8
commit e4c275a349
1 changed files with 46 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
tests/test/trtti20.pp
View File

@ -150,35 +150,73 @@ begin
if SetToString(PTypeInfo(TypeInfo(TLargeSetP)), @lsp1, True) <> StrLS then
Halt(8);
if SetToString(PTypeInfo(TypeInfo(TByteSet)), LongInt(bs1), True) <> StrBS then
Halt(9);
if SetToString(PTypeInfo(TypeInfo(TWordSet)), LongInt(ws1), True) <> StrWS then
Halt(10);
if SetToString(PTypeInfo(TypeInfo(TDWordSet)), LongInt(ds1), True) <> StrDS then
Halt(11);
if SetToString(PTypeInfo(TypeInfo(TByteSetP)), Byte(bsp1), True) <> StrBS then
Halt(12);
if SetToString(PTypeInfo(TypeInfo(TWordSetP)), Word(wsp1), True) <> StrWS then
Halt(13);
if SetToString(PTypeInfo(TypeInfo(TDWordSetP)), LongInt(dsp1), True) <> StrDS then
Halt(14);
StringToSet(PTypeInfo(TypeInfo(TByteSet)), StrBS, @bs2);
if bs2<>bs1 then
Halt(9);
Halt(15);
StringToSet(PTypeInfo(TypeInfo(TWordSet)), StrWS, @ws2);
if ws2<>ws1 then
Halt(10);
Halt(16);
StringToSet(PTypeInfo(TypeInfo(TDWordSet)), StrDS, @ds2);
if ds2<>ds1 then
Halt(11);
Halt(17);
StringToSet(PTypeInfo(TypeInfo(TLargeSet)), StrLS, @ls2);
if ls2<>ls1 then
Halt(12);
Halt(18);
StringToSet(PTypeInfo(TypeInfo(TByteSetP)), StrBS, @bsp2);
if bsp2<>bsp1 then
Halt(9);
Halt(19);
StringToSet(PTypeInfo(TypeInfo(TWordSetP)), StrWS, @wsp2);
if wsp2<>wsp1 then
Halt(10);
Halt(20);
StringToSet(PTypeInfo(TypeInfo(TDWordSetP)), StrDS, @dsp2);
if dsp2<>dsp1 then
Halt(11);
Halt(21);
StringToSet(PTypeInfo(TypeInfo(TLargeSetP)), StrLS, @lsp2);
if lsp2<>lsp1 then
Halt(12);
Halt(22);
bs2 := TByteSet(StringToSet(PTypeInfo(TypeInfo(TByteSet)), StrBS));
if bs2<>bs1 then
Halt(23);
ws2 := TWordSet(StringToSet(PTypeInfo(TypeInfo(TWordSet)), StrWS));
if ws2<>ws1 then
Halt(24);
ds2 := TDWordSet(StringToSet(PTypeInfo(TypeInfo(TDWordSet)), StrDS));
if ds2<>ds1 then
Halt(25);
bsp2 := TByteSetP(Byte(StringToSet(PTypeInfo(TypeInfo(TByteSetP)), StrBS)));
if bsp2<>bsp1 then
Halt(26);
wsp2 := TWordSetP(Word(StringToSet(PTypeInfo(TypeInfo(TWordSetP)), StrWS)));
if wsp2<>wsp1 then
Halt(27);
dsp2 := TDWordSetP(StringToSet(PTypeInfo(TypeInfo(TDWordSetP)), StrDS));
if dsp2<>dsp1 then
Halt(28);
end.