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

fcl-passrc: test helper for double

Browse Source 
git-svn-id: trunk@41621 -
This commit is contained in:
Mattias Gaertner 2019-03-06 18:10:52 +00:00
parent 2869e9216f
commit 94bb523217
2 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -934,6 +934,7 @@ type
Procedure TestTypeHelper_String; Procedure TestTypeHelper_String;
Procedure TestTypeHelper_Boolean; Procedure TestTypeHelper_Boolean;
Procedure TestTypeHelper_Double; Procedure TestTypeHelper_Double;
Procedure TestTypeHelper_DoubleAlias;
Procedure TestTypeHelper_Constructor_NewInstance; Procedure TestTypeHelper_Constructor_NewInstance;
Procedure TestTypeHelper_Interface; Procedure TestTypeHelper_Interface;
Procedure TestTypeHelper_Interface_ConstructorFail; Procedure TestTypeHelper_Interface_ConstructorFail;
@ -17583,6 +17584,32 @@ begin
end; end;
procedure TTestResolver.TestTypeHelper_Double; procedure TTestResolver.TestTypeHelper_Double;
begin
StartProgram(false);
Add([
'{$modeswitch typehelpers}',
'type',
' Float = double;',
' THelper = type helper for float',
' const NPI = 3.141592;',
' function ToStr: String;',
' end;',
'function THelper.ToStr: String;',
'begin',
'end;',
'var',
' a,b: Float;',
' s: string;',
'begin',
' s:=(a * b.NPI).ToStr;',
' s:=(a * float.NPI).ToStr;',
' s:=float.NPI.ToStr;',
' s:=3.2.ToStr;',
'']);
ParseProgram;
end;
procedure TTestResolver.TestTypeHelper_DoubleAlias;
begin begin
StartProgram(false); StartProgram(false);
Add([ Add([