Browse Source

+ test for published class with abstract methods

Jonas Maebe 20 years ago
parent
commit
0b79e441ab
2 changed files with 19 additions and 0 deletions
  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.