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

Those two tests shouldn't have been commited yet...

Browse Source 
git-svn-id: branches/svenbarth/classhelpers@17100 -
This commit is contained in:
svenbarth 2011-03-09 16:56:19 +00:00
parent 80e6498921
commit 42129251da
2 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/tchlp4.pp
View File

@ -12,11 +12,6 @@ type
destructor Destroy; override;
end;
destructor TObjectHelper.Destroy;
begin
end;
begin
end.

11
tests/test/tchlp5.pp
View File

@ -1,6 +1,6 @@
{ %NORUN }
{%FAIL}
{ class destructors are allowed }
{ class destructors are not allowed }
program tchlp5;
{$ifdef fpc}
@ -9,14 +9,9 @@ program tchlp5;
type
TObjectHelper = class helper for TObject
class destructor Destroy;
class destructor Destroy; override;
end;
class destructor TObjectHelper.Destroy;
begin
end;
begin
end.