paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:59:27 +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; destructor Destroy; override;
end; end;
destructor TObjectHelper.Destroy;
begin
end;
begin begin
end. 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; program tchlp5;
{$ifdef fpc} {$ifdef fpc}
@ -9,14 +9,9 @@ program tchlp5;
type type
TObjectHelper = class helper for TObject TObjectHelper = class helper for TObject
class destructor Destroy; class destructor Destroy; override;
end; end;
class destructor TObjectHelper.Destroy;
begin
end;
begin begin
end. end.