Index: vhUnitTest/WSimpl/AX/DocGen/Utils/VervangTekstHTMLTag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/DocGen/Utils/VervangTekstHTMLTag/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/DocGen/Utils/VervangTekstHTMLTag/Test.cls.xml	(revision 51768)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.DocGen.Utils.VervangTekstHTMLTag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: VervangTekstHTMLTag heeft hetzelfde resultaat als via method Append">
+<Implementation><![CDATA[
+	#dim InputTekst = "Woordje <U>test</U> met een amperxand & en een è."
+	Set DocGenUtils = ##class(WSimpl.AX.DocGen.Utils).%New()
+	
+	Set TekstHtmlMetVervang = ##class(BL.FOP.Basis.pxTekstHTML).%New()
+	Set TekstHtmlMetVervang.Tekst = InputTekst
+	Do DocGenUtils.VervangTekstHTMLTag(TekstHtmlMetVervang)
+
+	Set TekstHtmlViaAppend = ##class(BL.FOP.Basis.pxTekstHTML).%New()
+	Do TekstHtmlViaAppend.Append(InputTekst,0,0)
+	
+	#dim VerwachteTekst As %String = "Woordje &lt;U&gt;test&lt;/U&gt; met een amperxand &amp; en een è."
+	Do $$$AssertEquals(TekstHtmlMetVervang.Tekst, VerwachteTekst)
+	Do $$$AssertEquals(TekstHtmlViaAppend.Tekst , VerwachteTekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TekstHtml gemaakt via xmlParser">
+<Description>
+Deze UT-method bootst de call "xml via webservice" na.  
+De eerste tussenstap controleert of de InputXml correct geparsed is.  
+Hoewel we de XmlCorrelatrer als black-box moeten beschouwen (lees: deze zijn nu eigenlijk ni aan t testen), is deze extra controle toch handig wanneer het toch misloopt. 
+Bovendien schetst het parsen de overeenkomst met de werkelijke WS-call. </Description>
+<Implementation><![CDATA[
+	#dim InputXml As %String = "Woordje &lt;U&gt;test&lt;/U&gt; met twee quotes &quot;&quot; en een amperxand &amp; en een è."
+	#dim TekstHtml As BL.FOP.Basis.pxTekstHTML = ..GeefTekstHtmlObjectVoorXml(InputXml)
+	
+	// Check the TekstHtml content BEFORE DocGenUtils.VervangTekstHTMLTag()
+	If $$$AssertEquals(TekstHtml.Tekst, "Woordje <U>test</U> met twee quotes """" en een amperxand & en een è.",  "Tekst BEFORE Vervangen.") {
+
+		Set DocGenUtils = ##class(WSimpl.AX.DocGen.Utils).%New()
+		Do DocGenUtils.VervangTekstHTMLTag(TekstHtml)
+
+		Do $$$AssertEquals(TekstHtml.Tekst, "Woordje &lt;U&gt;test&lt;/U&gt; met twee quotes """" en een amperxand &amp; en een è.", "Tekst NA Vervangen.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTekstHtmlObjectVoorXml">
+<FormalSpec>InputXml:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.FOP.Basis.pxTekstHTML</ReturnType>
+<Implementation><![CDATA[
+	#dim XmlString As %String = "<UT_TAG>"_"<Tekst>"_InputXml_"</Tekst>"_"</UT_TAG>"
+	#dim XmlCorrelater As TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
+	
+	#dim TekstHtml As BL.FOP.Basis.pxTekstHTML = XmlCorrelater.FromString(XmlString, "BL.FOP.Basis.pxTekstHTML", "UT_TAG")
+	Quit TekstHtml
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>