Browse Source

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

git-svn-id: branches/svenbarth/classhelpers@17100 -
svenbarth 14 năm trước cách đây
mục cha
commit
42129251da
2 tập tin đã thay đổi với 3 bổ sung13 xóa
  1. 0 5
      tests/test/tchlp4.pp
  2. 3 8
      tests/test/tchlp5.pp

+ 0 - 5
tests/test/tchlp4.pp

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

+ 3 - 8
tests/test/tchlp5.pp

@@ -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.