tests: added tests for fixing fpdoc fragments

git-svn-id: trunk@29650 -

components/codetools/ctxmlfixfragment.pas

@@ -22,7 +22,7 @@
 
   Abstract:
     function for testing if a xml fragment is correct for fpdoc
-    and if not to automatically repair it
+    and if not to automatically repair it using heuristics.
 }
 unit CTXMLFixFragment;
 
@@ -33,8 +33,12 @@ interface
 uses
   Classes, SysUtils, FileProcs, contnrs, BasicCodeTools;
 
-procedure FixFPDocFragment(var Fragment: string; AllowTags, Fix: boolean;
-  out ErrorList: TObjectList; Verbose: boolean = false);
+procedure FixFPDocFragment(var Fragment: string;
+  AllowTags,    // for attribute values set this to false, so that all < are converted
+  Fix: boolean; // fix errors using heuristics creating valid xml
+  out ErrorList: TObjectList;
+  Verbose: boolean = false // write debugln to stdout
+  );
 
 implementation
 

test/runtests.lpi

@@ -39,7 +39,7 @@
         <PackageName Value="LCL"/>
       </Item4>
     </RequiredPackages>
-    <Units Count="10">
+    <Units Count="11">
       <Unit0>
         <Filename Value="runtests.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -90,6 +90,11 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="TestCompleteBlock"/>
       </Unit9>
+      <Unit10>
+        <Filename Value="testctxmlfixfragments.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="TestCTXMLFixFragments"/>
+      </Unit10>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

test/runtests.lpr

@@ -24,7 +24,7 @@ uses
   Classes, consoletestrunner,
   testglobals, testunits, dom,
   {Unit needed to set the LCL version and widget set name}
-  LCLVersion, InterfaceBase, Interfaces;
+  LCLVersion, InterfaceBase, Interfaces, TestCTXMLFixFragments;
   
 type