diff options
| author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-10-22 17:11:34 +0000 |
|---|---|---|
| committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-10-22 17:11:34 +0000 |
| commit | de80af8ce6f24c59ca08a0fc5a5679318fc3c679 (patch) | |
| tree | 5e410451a660a40e52320556ad48f9f884dda235 /packages/fcl-passrc/tests/tcresolvegenerics.pas | |
| parent | 184ef935beafa9884840e27cf57d982c7519e2b4 (diff) | |
| download | fpc-de80af8ce6f24c59ca08a0fc5a5679318fc3c679.tar.gz | |
fcl-passrc: error on generic type overload
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43304 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/tests/tcresolvegenerics.pas')
| -rw-r--r-- | packages/fcl-passrc/tests/tcresolvegenerics.pas | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/packages/fcl-passrc/tests/tcresolvegenerics.pas b/packages/fcl-passrc/tests/tcresolvegenerics.pas index 47c2b26e28..a8bd41f06a 100644 --- a/packages/fcl-passrc/tests/tcresolvegenerics.pas +++ b/packages/fcl-passrc/tests/tcresolvegenerics.pas @@ -58,7 +58,7 @@ type // generic class procedure TestGen_Class; procedure TestGen_ClassDelphi; - procedure TestGen_ClassDelphi_TypeOverload; // ToDo + procedure TestGen_ClassDelphi_TypeOverload; // ToDo: type overload procedure TestGen_ClassObjFPC; procedure TestGen_ClassObjFPC_OverloadFail; procedure TestGen_ClassForward; @@ -68,7 +68,7 @@ type procedure TestGen_ClassForwardConstraintTypeMismatch; procedure TestGen_ClassForward_Circle; procedure TestGen_Class_RedeclareInUnitImplFail; - procedure TestGen_Class_AnotherInUnitImpl; + procedure TestGen_Class_AnotherInUnitImpl; // ToDo: type overload procedure TestGen_Class_MethodObjFPC; procedure TestGen_Class_MethodOverride; procedure TestGen_Class_MethodDelphi; @@ -763,8 +763,6 @@ end; procedure TTestResolveGenerics.TestGen_ClassDelphi_TypeOverload; begin - exit; - StartProgram(false); Add([ '{$mode delphi}', @@ -774,14 +772,14 @@ begin ' TBird<T> = class', ' v: T;', ' end;', - ' TEagle = TBird<word>;', - 'var', - ' b: TBird<word>;', - ' w: TBird;', + //' TEagle = TBird<word>;', + //'var', + //' b: TBird<word>;', + //' w: TBird;', 'begin', - ' b.v:=w;', + //' b.v:=w;', '']); - ParseProgram; + CheckResolverException('Duplicate identifier "TBird" at afile.pp(5,8)',nDuplicateIdentifier); end; procedure TTestResolveGenerics.TestGen_ClassObjFPC; @@ -983,7 +981,7 @@ begin 'implementation', 'type generic TBird<T,U> = record x: T; y: U; end;', '']); - ParseUnit; + CheckResolverException('Duplicate identifier "TBird" at afile.pp(5,16)',nDuplicateIdentifier); end; procedure TTestResolveGenerics.TestGen_Class_MethodObjFPC; |