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

fcl-passrc: started test generic with type alias

Browse Source
This commit is contained in:
mattias 2023-10-10 19:36:32 +02:00
parent ad637e8f09
commit d8fa6e6a9c
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/fcl-passrc/tests/tcresolvegenerics.pas
View File

@ -98,6 +98,7 @@ type
procedure TestGen_Class_List; procedure TestGen_Class_List;
procedure TestGen_Class_Typecast; procedure TestGen_Class_Typecast;
// ToDo: different modeswitches at parse time and specialize time // ToDo: different modeswitches at parse time and specialize time
procedure TestGen_Class_TypeAliasAssignFail; // todo
// generic external class // generic external class
procedure TestGen_ExtClass_Array; procedure TestGen_ExtClass_Array;
@ -1683,6 +1684,28 @@ begin
// Delphi: no warning // Delphi: no warning
end; end;
procedure TTestResolveGenerics.TestGen_Class_TypeAliasAssignFail;
begin
exit;
StartProgram(false);
Add([
'{$mode objfpc}',
'type',
' TDate = type double;',
' TObject = class end;',
' generic TBird<T> = class',
' end;',
'var',
' a: specialize TBird<double>;',
' b: specialize TBird<TDate>;',
'begin',
' a:=b;',
'']);
CheckResolverException('Incompatible types: got expected',
nGenericsWithoutSpecializationAsType);
end;
procedure TTestResolveGenerics.TestGen_ExtClass_Array; procedure TTestResolveGenerics.TestGen_ExtClass_Array;
begin begin
StartProgram(false); StartProgram(false);