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

fcl-passrc: starting test generics

Browse Source 
git-svn-id: trunk@42252 -
This commit is contained in:
Mattias Gaertner 2019-06-20 08:47:30 +00:00
parent fb29815fbf
commit 783505b4d7
2 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2647,6 +2647,7 @@ packages/fcl-passrc/tests/tcmoduleparser.pas svneol=native#text/plain
packages/fcl-passrc/tests/tconstparser.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcpassrcutil.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcprocfunc.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcresolvegenerics.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcresolver.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcscanner.pas svneol=native#text/plain
packages/fcl-passrc/tests/tcstatements.pas svneol=native#text/plain

43
packages/fcl-passrc/tests/tcresolvegenerics.pas Normal file
View File

@ -0,0 +1,43 @@
unit tcresolvegenerics;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, testregistry, tcresolver;
type
{ TTestResolveGenerics }
TTestResolveGenerics = Class(TCustomTestResolver)
Published
procedure TestGen_GenericFunction; // ToDo
end;
implementation
{ TTestResolveGenerics }
procedure TTestResolveGenerics.TestGen_GenericFunction;
begin
exit;
StartProgram(false);
Add([
'generic function DoIt<T>(a: T): T;',
'begin',
' Result:=a;',
'end;',
'var w: word;',
'begin',
' w:=DoIt<word>(3);',
'']);
ParseProgram;
end;
initialization
RegisterTests([TTestResolveGenerics]);
end.