Parcourir la source

+ test for published class with abstract methods

Jonas Maebe il y a 20 ans
Parent
commit
0b79e441ab
2 fichiers modifiés avec 19 ajouts et 0 suppressions
  1. 4 0
      tests/test/tabstrcl.pp
  2. 15 0
      tests/test/uabstrcl.pp

+ 4 - 0
tests/test/tabstrcl.pp

@@ -0,0 +1,4 @@
+uses uabstrcl;
+
+begin
+end.

+ 15 - 0
tests/test/uabstrcl.pp

@@ -0,0 +1,15 @@
+unit uabstrcl;    
+
+{$m+}
+{$mode delphi}
+
+interface
+
+type
+  tc = class
+    constructor create; virtual; abstract;
+  end;
+
+implementation
+
+end.