paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added tests helper and protected

Browse Source 
git-svn-id: trunk@50114 -
This commit is contained in:
mattias 2015-10-18 22:21:45 +00:00
parent 3823cf94c4
commit ea4449e888
3 changed files with 54 additions and 0 deletions
.gitattributes
components/codetools/tests/fpctests
tchlp14.pptchlp15.pp

2
.gitattributes vendored
View File

@ -997,6 +997,8 @@ components/codetools/tests/fdtbase.pas svneol=native#text/plain
components/codetools/tests/finddeclarationtest.lpi svneol=native#text/plain
components/codetools/tests/finddeclarationtest.lpr svneol=native#text/plain
components/codetools/tests/fpctests/README.txt svneol=native#text/plain
components/codetools/tests/fpctests/tchlp14.pp svneol=native#text/plain
components/codetools/tests/fpctests/tchlp15.pp svneol=native#text/plain
components/codetools/tests/fpctests/tchlp36.pp svneol=native#text/plain
components/codetools/tests/fpctests/tchlp40.pp svneol=native#text/plain
components/codetools/tests/fpctests/tchlp41.pp svneol=native#text/plain

26
components/codetools/tests/fpctests/tchlp14.pp Normal file
View File

@ -0,0 +1,26 @@
{ %NORUN }
{ class helpers can access (strict) protected, public and published members -
here: strict protected }
program tchlp14;
{$ifdef fpc}
{$mode delphi}
{$endif}
uses
uchlp12;
type
TTestHelper = class helper for TTest
function AccessTest: Integer;
end;
function TTestHelper.AccessTest: Integer;
begin
Result := Test3;
end;
begin
end.

26
components/codetools/tests/fpctests/tchlp15.pp Normal file
View File

@ -0,0 +1,26 @@
{ %NORUN }
{ class helpers can access (strict) protected, public and published members -
here: protected }
program tchlp15;
{$ifdef fpc}
{$mode delphi}
{$endif}
uses
uchlp12;
type
TTestHelper = class helper for TTest
function AccessTest: Integer;
end;
function TTestHelper.AccessTest: Integer;
begin
Result := Test4;
end;
begin
end.