Kaynağa Gözat

+ test for published class with abstract methods

Jonas Maebe 20 yıl önce
ebeveyn
işleme
0b79e441ab
2 değiştirilmiş dosya ile 19 ekleme ve 0 silme
  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.