Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r66185 -r66977
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 66185)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 66977)
@@ -296,6 +296,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaard binnenlade E met boxcap">
+<Implementation><![CDATA[
+	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
+	Set ..MvxKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MvxKenmerken.RugHoogte = ..Enum.RugHoogte.E
+	Set ..MvxKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Boxcap()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX binnenlade E" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; BOXCAP; gesloten voorstuk;"_ $$$CRLF,
+																					"corpusprofiel 40kg; BLUMOTION" _ $$$CRLF, 
+																					"verpakt: Probox")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard binnenlade E met NM reling zijkant">
 <Implementation><![CDATA[
 	Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()