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

pastojs: test typeinfo(double)

Browse Source 
git-svn-id: trunk@39168 -
This commit is contained in:
Mattias Gaertner 2018-06-04 13:44:54 +00:00
parent 6d7d4be12f
commit 49c97d1152
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/pastojs/tests/tcmodules.pas
View File

@ -635,6 +635,7 @@ type
// RTTI // RTTI
Procedure TestRTTI_IntRange; Procedure TestRTTI_IntRange;
Procedure TestRTTI_Double;
Procedure TestRTTI_ProcType; Procedure TestRTTI_ProcType;
Procedure TestRTTI_ProcType_ArgFromOtherUnit; Procedure TestRTTI_ProcType_ArgFromOtherUnit;
Procedure TestRTTI_EnumAndSetType; Procedure TestRTTI_EnumAndSetType;
@ -18787,6 +18788,34 @@ begin
''])); '']));
end; end;
procedure TTestModule.TestRTTI_Double;
begin
Converter.Options:=Converter.Options-[coNoTypeInfo];
StartProgram(false);
Add([
'{$modeswitch externalclass}',
'type',
' TTypeInfo = class external name ''rtl.tTypeInfo''',
' end;',
' TFloat = type double;',
'var',
' p: TTypeInfo;',
'begin',
' p:=typeinfo(double);',
' p:=typeinfo(TFloat);',
'']);
ConvertProgram;
CheckSource('TestRTTI_Double',
LinesToStr([ // statements
'$mod.$rtti.$inherited("TFloat", rtl.double, {});',
'this.p = null;',
'']),
LinesToStr([ // $mod.$main
'$mod.p = rtl.double;',
'$mod.p = $mod.$rtti["TFloat"];',
'']));
end;
procedure TTestModule.TestRTTI_ProcType; procedure TTestModule.TestRTTI_ProcType;
begin begin
Converter.Options:=Converter.Options-[coNoTypeInfo]; Converter.Options:=Converter.Options-[coNoTypeInfo];