Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62798 -r62799
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62798)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62799)
@@ -28,10 +28,18 @@
  	Do ##super()
  	
  	Set ..MvxKorttekstBepaler = ##class(DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler).%New()
- 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.MVXVerpakkingType).Probox())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Korttekst begint met MV">
 <Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("MV", 1, 2)
 ]]></Implementation>
@@ -131,21 +139,21 @@
 	// Missende input brengt de locatie van andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = ""
 	Set ..MVXKenmerken.InterneBreedte = 564
-	Do ..AssertPositiesInKorttekst("MV7ESI S38Jx564    X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jx564    X     ", 1, 25)
 	
 	Set ..MVXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
 	Set ..MVXKenmerken.InterneBreedte = ""
-	Do ..AssertPositiesInKorttekst("MV7ESI S38J500x    X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J500x    X     ", 1, 25)
 	
 	// Een spatie als input brengt de locatie van de andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = " "
 	Set ..MVXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus niet een spatie zijn.
-	Do ..AssertPositiesInKorttekst("MV7ESI S38J x564   X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J x564   X     ", 1, 25)
 	
 	// Foute input brengt de locatie van de andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = ..#RandomInput
 	Set ..MVXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus geen RandomInput zijn.
-	Do ..AssertPositiesInKorttekst("MV7ESI S38Jr#6P)&xxX     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jr#6P)&xxX     ", 1, 25)
 ]]></Implementation>
 </Method>
 
@@ -165,6 +173,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 21 is altijd een spatie">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken.VerpakkingType = ""
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	
+	Set ..MVXKenmerken.VerpakkingType = " "
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	
+	Set ..MVXKenmerken.VerpakkingType = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 21)
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositiesInKorttekst">
 <FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
 <Private>1</Private>