paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for #41002

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-09 09:58:12 +01:00
parent fe6dd84d01
commit d486463bc1
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,6 +52,7 @@ Type
procedure TestMakeGenericWideChar; procedure TestMakeGenericWideChar;
procedure TestFromOrdinal; procedure TestFromOrdinal;
Procedure TestTryCastUnicodeString;
end; end;
{ TTestValueArray } { TTestValueArray }
@ -1533,6 +1534,17 @@ begin
CheckException({$ifdef fpc}@{$endif}MakeFromOrdinalString, EInvalidCast); CheckException({$ifdef fpc}@{$endif}MakeFromOrdinalString, EInvalidCast);
end; end;
procedure TTestValueSimple.TestTryCastUnicodeString;
var
S: string;
V, V2: TValue;
begin
S := 'str';
V := S;
CheckTrue(V.TryCast(TypeInfo(UnicodeString), V2),'Cast OK');
end;
{ TTestValueArray } { TTestValueArray }