Index: vhUnitTest/WSimpl/AX/DocGen/Utils/VerwijderProductLangtekst/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/DocGen/Utils/VerwijderProductLangtekst/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/DocGen/Utils/VerwijderProductLangtekst/Test.cls.xml	(revision 61347)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.DocGen.Utils.VerwijderProductLangtekst.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Lijnen met key 1 tot en met 49 worden verwijderd uit de TEKST-blok">
+<Implementation><![CDATA[
+	#dim ItemValue As %String
+	#dim ItemKey As %String
+	
+	Set FopProduct = ##class(BL.FOP.Prod.Product).%New()
+	Set FopProduct.TEKST = ..GeefTekstBlok()
+	
+	Set DocGenUtils = ##class(WSimpl.AX.DocGen.Utils).%New()
+	Do DocGenUtils.VerwijderProductLangtekst(FopProduct)
+	
+	Set ItemIterator = ##class(TECH.ListIterator).%New(FopProduct.TEKST.ITEM)
+	If $$$AssertTrue(ItemIterator.HasNext()) {
+		Set ItemValue = ItemIterator.Next()
+		Set ItemKey = ItemIterator.Key()
+		Do $$$AssertEquals(ItemValue, "ProductRef lijn;")
+		Do $$$AssertEquals(ItemKey, "50")
+	}
+	
+	Do $$$AssertFalse(ItemIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: De enige langtekstlijn wordt verwijderd">
+<Implementation><![CDATA[
+	Set FopProduct = ##class(BL.FOP.Prod.Product).%New()
+	Set FopProduct.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).%New()
+	Do FopProduct.TEKST.ITEM.SetAt("Langtekst lijn 01;" ,  "1")
+	
+	Set DocGenUtils = ##class(WSimpl.AX.DocGen.Utils).%New()
+	Do DocGenUtils.VerwijderProductLangtekst(FopProduct)
+	
+	Set ItemIterator = ##class(TECH.ListIterator).%New(FopProduct.TEKST.ITEM)
+	Do $$$AssertFalse(ItemIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductTekst zonder Lijnen">
+<Implementation><![CDATA[
+	Set FopProduct = ##class(BL.FOP.Prod.Product).%New()
+	Set FopProduct.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).%New()
+	
+	Set DocGenUtils = ##class(WSimpl.AX.DocGen.Utils).%New()
+	Do DocGenUtils.VerwijderProductLangtekst(FopProduct)
+	
+	Set ItemIterator = ##class(TECH.ListIterator).%New(FopProduct.TEKST.ITEM)
+	Do $$$AssertFalse(ItemIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="GeefTekstBlok">
+<Private>1</Private>
+<ReturnType>BL.FOP.Basis.pxTekstBlok</ReturnType>
+<Implementation><![CDATA[
+	Set TekstBlok = ##class(BL.FOP.Basis.pxTekstBlok).%New()
+	Do TekstBlok.ITEM.SetAt("Langtekst lijn 01;" ,  "1")
+	Do TekstBlok.ITEM.SetAt("Langtekst lijn 02;" ,  "2")
+	Do TekstBlok.ITEM.SetAt("Langtekst lijn 49;" , "49")
+	Do TekstBlok.ITEM.SetAt("ProductRef lijn;", "50")
+	
+	Quit TekstBlok
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>