paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 10:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* test for variant TValue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-07 11:55:22 +02:00 committed by Sven/Sarah Barth
parent c39e51485c
commit b6a87450eb
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/rtl-objpas/tests/tests.rtti.value.pas
View File

@ -40,6 +40,7 @@ Type
procedure TestMakeWideChar;
procedure TestMakeNativeInt;
procedure TestMakeVariant;
procedure TestMakeGenericNil;
@ -1251,6 +1252,28 @@ begin
o.Free;
end;
procedure TTestValueSimple.TestMakeVariant;
var
vv : Variant;
vd : TVarData;
v: TValue;
begin
vv := 'Some String';
TValue.Make(@vv, TypeInfo(Variant), v);
Check(not v.IsClass);
Check(not v.IsArray);
Check(not v.IsEmpty);
{$ifdef fpc}
Check(not v.IsOpenArray);
{$endif}
Check(not v.IsObject);
Check(not v.IsOrdinal);
Check(v.GetReferenceToRawData <> @vv);
Check(String(v.AsVariant) = 'Some String');
end;
procedure TTestValueArray.TestMakeFromArray;
var
arr, subarr: array of TValue;