瀏覽代碼

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

git-svn-id: branches/svenbarth/classhelpers@17100 -
svenbarth 14 年之前
父節點
當前提交
42129251da
共有 2 個文件被更改,包括 3 次插入13 次删除
  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.