* Test unit for testing purposes

git-svn-id: trunk@15009 -

.gitattributes

@@ -11348,6 +11348,8 @@ utils/fpdoc/intl/makeskel.de.po svneol=native#text/plain
 utils/fpdoc/makeskel.lpi svneol=native#text/plain
 utils/fpdoc/makeskel.pp svneol=native#text/plain
 utils/fpdoc/sh_pas.pp svneol=native#text/plain
+utils/fpdoc/testunit.pp svneol=native#text/plain
+utils/fpdoc/testunit.xml svneol=native#text/plain
 utils/fpdoc/unitdiff.pp svneol=native#text/plain
 utils/fpmc/Makefile svneol=native#text/plain
 utils/fpmc/Makefile.fpc svneol=native#text/plain

utils/fpdoc/testunit.pp

@@ -0,0 +1,279 @@
+{$mode objfpc}
+{$h+}
+unit testunit;
+
+interface
+
+uses SysUtils, Classes;
+
+Const
+  AnIntegerConst  = 1;
+  AStringConst    = 'Hello, World!';
+  AFLoatconst     = 1.23;
+  ABooleanConst   = True;
+  ATypedConst : Integer = 3;
+  AnArrayConst : Array[1..3] of Integer = (1,2,3);
+  ARecordConst : TMethod = (Code:Nil;Data:Nil);
+  ASetConst = [true,false];
+  ADeprecatedConst = 1 deprecated;
+   
+Type
+  TAnEnumType         = (one,two,three);
+  TASetType           = Set of TAnEnumType;
+  TAnArrayType        = Array[1..10] of Integer;
+  TASubRangeType      = one..two;
+  TABooleanArrayType  = Array[Boolean] of Integer;  
+  TARecordType        = Record
+                         X,Y : Integer;
+                         Z : String;
+                       end;
+  TAVariantRecordType = Record
+                          A : String;
+                          Case Integer of
+                           1 : (X,Y : Integer);
+                           2 : (phi,Omega : Real);
+                        end; 
+  TAVariantRecordType2 = Record
+                          A : String;
+                          Case Atype : Integer of
+                            1 : (X,Y : Integer);
+                            2 : (phi,Omega : Real);
+                          end; 
+                          
+//  TADeprecatedType = Integer deprecated;
+                        
+Var
+  ASimpleVar : Integer;  
+  ATypedVar  : TMethod;
+  ARecordVar : Record
+                 A,B : integer;
+               end;
+  AnArrayVar : Array[1..10] of Integer;
+  ATypedArray : Array[TanEnumType] of Integer;
+  AInitVar : Integer = 1;
+  
+  ADeprecatedVar : Integer deprecated;
+  ACVarVar : Integer; cvar;
+  AnExternalVar : Integer; external name 'avar';
+  AnExternalLibVar : Integer; external 'library' name 'avar';
+      
+Procedure SimpleProc;
+Procedure OverloadedProc(A : Integer);
+Procedure OverloadedProc(B : String);
+Function SimpleFunc : Integer;
+Function OverloadedFunc(A: Integer) : Integer;
+Function OverloadedFunc(B : String) : Integer;  
+
+Procedure ConstArgProc(Const A : Integer); 
+Procedure VarArgProc(Var A : Integer); 
+Procedure OutArgProc(Out A : Integer); 
+Procedure UntypedVarArgProc(Var A); 
+Procedure UntypedConstArgProc(const A); 
+Procedure UntypedOutArgProc(Out A); 
+
+Procedure ArrayArgProc (A : TAnArrayType);
+Procedure OpenArrayArgProc(A : Array of string);
+Procedure ConstArrayArgProc(A : Array of const);
+
+Procedure externalproc; external;
+Procedure externalnameProc; external name 'aname';
+Procedure externallibnameProc; external 'alibrary' name 'aname';
+
+Type 
+
+  { TMyParentClass }
+
+  TMyParentClass = Class(TComponent)
+  Private 
+    FI : Integer;
+    function GetA(AIndex : Integer): String;
+    function GetIP(AIndex: integer): String;
+    procedure SetA(AIndex : Integer; const AValue: String);
+    procedure SetIP(AIndex: integer; const AValue: String);
+    Procedure WriteI(AI : Integer);
+    Function ReadI : Integer;
+  Protected
+    Procedure AProtectedMethod;
+    Property AProtectedProp : Integer Read FI Write FI;  
+  Public
+    Constructor Create(AOwner : TComponent); override;
+    Destructor Destroy; override;
+    Procedure AVirtualProc; virtual;
+    Procedure AnAbstractProc; virtual; abstract;
+    Procedure AMessageProc(Var Msg); Message 123;
+    Procedure AStringMessageProc(Var Msg); Message '123';
+    Procedure ADeprecatedProc; deprecated;
+    Procedure APlatformProc; Platform;
+    Property IntProp : Integer Read FI Write Fi;
+    Property IntROProp : Integer Read FI;
+    Property GetIntProp : Integer Read ReadI Write WriteI;
+    Property AnArrayProp[AIndex : Integer] : String Read GetA write SetA;
+    Property AnIndexProp : String Index 1 Read GetIP Write SetIP;
+    Property AnIndexProp2 : String Index 2 Read GetIP Write SetIP;
+  Published
+    Procedure SomePublishedMethod;
+  end;
+  
+  { TMyChildClass }
+
+  TMyChildClass = Class(TMyParentClass)
+  Public
+    Procedure AVirtualProc; Override;
+    Procedure AnAbstractProc; Override;
+  Published
+    Property AProtectedProp;
+  end;
+  
+Implementation
+
+Procedure SimpleProc;
+begin
+end;
+
+Procedure OverloadedProc(A : Integer);
+begin
+end;
+
+Procedure OverloadedProc(B : String);
+begin
+end;
+
+Function SimpleFunc : Integer;
+begin
+end;
+
+Function OverloadedFunc(A: Integer) : Integer;
+begin
+end;
+
+Function OverloadedFunc(B : String) : Integer;  
+begin
+end;
+
+Procedure ArrayArgProc (A : TAnArrayType);
+begin
+end;
+
+Procedure OpenArrayArgProc(A : Array of string);
+begin
+end;
+
+Procedure ConstArrayArgProc(A : Array of const);
+begin
+end;
+
+Procedure ConstArgProc(Const A : Integer); 
+begin
+end;
+
+Procedure VarArgProc(Var A : Integer); 
+begin
+end;
+
+Procedure OutArgProc(Out A : Integer); 
+begin
+end;
+
+Procedure UntypedVarArgProc(Var A); 
+begin
+end;
+
+Procedure UntypedConstArgProc(const A); 
+begin
+end;
+
+Procedure UntypedOutArgProc(Out A); 
+begin
+end;
+
+
+{ TMyChildClass }
+
+procedure TMyChildClass.AVirtualProc;
+begin
+  inherited AVirtualProc;
+end;
+
+procedure TMyChildClass.AnAbstractProc;
+begin
+  // Cannot call ancestor
+end;
+
+{ TMyParentClass }
+
+procedure TMyParentClass.WriteI(AI: Integer);
+begin
+
+end;
+
+function TMyParentClass.GetA(AIndex : Integer): String;
+begin
+
+end;
+
+function TMyParentClass.GetIP(AIndex: integer): String;
+begin
+
+end;
+
+procedure TMyParentClass.SetA(AIndex : Integer; const AValue: String);
+begin
+
+end;
+
+procedure TMyParentClass.SetIP(AIndex: integer; const AValue: String);
+begin
+
+end;
+
+function TMyParentClass.ReadI: Integer;
+begin
+
+end;
+
+procedure TMyParentClass.AProtectedMethod;
+begin
+
+end;
+
+constructor TMyParentClass.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+end;
+
+destructor TMyParentClass.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TMyParentClass.AVirtualProc;
+begin
+
+end;
+
+procedure TMyParentClass.AMessageProc(var Msg);
+begin
+
+end;
+
+procedure TMyParentClass.AStringMessageProc(var Msg);
+begin
+
+end;
+
+procedure TMyParentClass.ADeprecatedProc;
+begin
+
+end;
+
+procedure TMyParentClass.APlatformProc;
+begin
+
+end;
+
+procedure TMyParentClass.SomePublishedMethod;
+begin
+
+end;
+
+end.

utils/fpdoc/testunit.xml

@@ -0,0 +1,1052 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<fpdoc-descriptions>
+<package name="fpdoc">
+
+<!--
+  ====================================================================
+    testunit
+  ====================================================================
+-->
+
+<module name="testunit">
+<short></short>
+<descr>
+</descr>
+
+<!-- constant Visibility: default -->
+<element name="AnIntegerConst">
+<short></short>
+<descr>
+</descr>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="AStringConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="AFLoatconst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="ABooleanConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="ATypedConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="AnArrayConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="ARecordConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="ASetConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constant Visibility: default -->
+<element name="ADeprecatedConst">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- enumeration type Visibility: default -->
+<element name="TAnEnumType">
+<short></short>
+<descr>
+</descr>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- enumeration value Visibility: default -->
+<element name="TAnEnumType.one">
+<short></short>
+</element>
+
+<!-- enumeration value Visibility: default -->
+<element name="TAnEnumType.two">
+<short></short>
+</element>
+
+<!-- enumeration value Visibility: default -->
+<element name="TAnEnumType.three">
+<short></short>
+</element>
+
+<!-- set type Visibility: default -->
+<element name="TASetType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- array type Visibility: default -->
+<element name="TAnArrayType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- range type Visibility: default -->
+<element name="TASubRangeType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- array type Visibility: default -->
+<element name="TABooleanArrayType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- record type Visibility: default -->
+<element name="TARecordType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TARecordType.X">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TARecordType.Y">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TARecordType.Z">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- record type Visibility: default -->
+<element name="TAVariantRecordType">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType.A">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType.X">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType.Y">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType.phi">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType.Omega">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- record type Visibility: default -->
+<element name="TAVariantRecordType2">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType2.A">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType2.X">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType2.Y">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType2.phi">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="TAVariantRecordType2.Omega">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ASimpleVar">
+<short></short>
+<descr>
+</descr>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ATypedVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ARecordVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="A">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="B">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="AnArrayVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ATypedArray">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="AInitVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ADeprecatedVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="ACVarVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="AnExternalVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: default -->
+<element name="AnExternalLibVar">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="SimpleProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="OverloadedProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OverloadedProc.A">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OverloadedProc.B">
+<short></short>
+</element>
+
+<!-- function Visibility: default -->
+<element name="SimpleFunc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- function result Visibility: default -->
+<element name="SimpleFunc.Result">
+<short></short>
+</element>
+
+<!-- function Visibility: default -->
+<element name="OverloadedFunc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- function result Visibility: default -->
+<element name="OverloadedFunc.Result">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OverloadedFunc.A">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OverloadedFunc.B">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="ConstArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="ConstArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="VarArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="VarArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="OutArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OutArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="UntypedVarArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="UntypedVarArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="UntypedConstArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="UntypedConstArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="UntypedOutArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="UntypedOutArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="ArrayArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="ArrayArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="OpenArrayArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="OpenArrayArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="ConstArrayArgProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="ConstArrayArgProc.A">
+<short></short>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="externalproc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="externalnameProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: default -->
+<element name="externallibnameProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- class Visibility: default -->
+<element name="TMyParentClass">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- variable Visibility: private -->
+<element name="TMyParentClass.FI">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- function Visibility: private -->
+<element name="TMyParentClass.GetA">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- function result Visibility: default -->
+<element name="TMyParentClass.GetA.Result">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.GetA.AIndex">
+<short></short>
+</element>
+
+<!-- function Visibility: private -->
+<element name="TMyParentClass.GetIP">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- function result Visibility: default -->
+<element name="TMyParentClass.GetIP.Result">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.GetIP.AIndex">
+<short></short>
+</element>
+
+<!-- procedure Visibility: private -->
+<element name="TMyParentClass.SetA">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.SetA.AIndex">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.SetA.AValue">
+<short></short>
+</element>
+
+<!-- procedure Visibility: private -->
+<element name="TMyParentClass.SetIP">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.SetIP.AIndex">
+<short></short>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.SetIP.AValue">
+<short></short>
+</element>
+
+<!-- procedure Visibility: private -->
+<element name="TMyParentClass.WriteI">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.WriteI.AI">
+<short></short>
+</element>
+
+<!-- function Visibility: private -->
+<element name="TMyParentClass.ReadI">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- function result Visibility: default -->
+<element name="TMyParentClass.ReadI.Result">
+<short></short>
+</element>
+
+<!-- procedure Visibility: protected -->
+<element name="TMyParentClass.AProtectedMethod">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: protected -->
+<element name="TMyParentClass.AProtectedProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- constructor Visibility: public -->
+<element name="TMyParentClass.Create">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.Create.AOwner">
+<short></short>
+</element>
+
+<!-- destructor Visibility: public -->
+<element name="TMyParentClass.Destroy">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.AVirtualProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<version>
+Appears in 2.0
+</version>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.AnAbstractProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.AMessageProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.AMessageProc.Msg">
+<short></short>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.AStringMessageProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.AStringMessageProc.Msg">
+<short></short>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.ADeprecatedProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyParentClass.APlatformProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.IntProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.IntROProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.GetIntProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.AnArrayProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- argument Visibility: default -->
+<element name="TMyParentClass.AnArrayProp.AIndex">
+<short></short>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.AnIndexProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: public -->
+<element name="TMyParentClass.AnIndexProp2">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: published -->
+<element name="TMyParentClass.SomePublishedMethod">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- class Visibility: default -->
+<element name="TMyChildClass">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyChildClass.AVirtualProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- procedure Visibility: public -->
+<element name="TMyChildClass.AnAbstractProc">
+<short></short>
+<descr>
+</descr>
+<errors>
+</errors>
+<seealso>
+</seealso>
+</element>
+
+<!-- property Visibility: published -->
+<element name="TMyChildClass.AProtectedProp">
+<short></short>
+<descr>
+</descr>
+<seealso>
+</seealso>
+</element>
+
+</module> <!-- testunit -->
+
+</package>
+</fpdoc-descriptions>