Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/TestBase.cls.xml	(revision 37089)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DummyRol">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyProductId">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyMassaDichtheid">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PlaatStub">
+<Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	#dim DummyDimensies As DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies = ##class(DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies).%New()
+	Set DummyDimensies.Breedte = 2
+	Set DummyDimensies.Lengte = 3
+	Set DummyDimensies.Hoogte = 4
+	
+	Set ..DummyRol = "DummyRol"
+	Set ..DummyProductId = "DummyProductId"
+	Set ..DummyMassaDichtheid = 1
+	Set ..PlaatStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat).%New()
+	
+	Do ..PlaatStub.IndienMethodCall("GeefDimensies").DanReturn(DummyDimensies)
+	Do ..PlaatStub.IndienMethodCall("GeefProductId").DanReturn(..DummyProductId)
+	Do ..PlaatStub.IndienMethodCall("GeefRol").DanReturn(..DummyRol)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/Test.cls.xml
===================================================================
diff -u -r36880 -r37089
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 36880)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/GewichtBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37089)
@@ -1,51 +1,27 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler.TestBase</Super>
 
 <Method name="Test: MassaDichtheidBepaler wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim DummyRol As TECH.String = "DummyRol"
-	#dim DummyProductId As TECH.String = "DummyProductId"
-	#dim DummyMassaDichtheid As %Decimal = 1
-	
 	#dim MassaDichtheidBepalerMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.MassaDichtheidBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.MassaDichtheidBepaler).%New()
-	Do MassaDichtheidBepalerMock.VerwachtMethodCall("GeefMassaDichtheid", DummyProductId, DummyRol).DanReturn(DummyMassaDichtheid)
-	
-	#dim DummyDimensies As DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies = ##class(DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies).%New()
-	#dim PlaatStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat).%New()
-	Do PlaatStub.IndienMethodCall("GeefDimensies").DanReturn(DummyDimensies)
-	Do PlaatStub.IndienMethodCall("GeefProductId").DanReturn(DummyProductId)
-	Do PlaatStub.IndienMethodCall("GeefRol").DanReturn(DummyRol)	
+	Do MassaDichtheidBepalerMock.VerwachtMethodCall("GeefMassaDichtheid", ..DummyProductId, ..DummyRol).DanReturn(..DummyMassaDichtheid)
 		
 	#dim GewichtBepaler As DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler).%New(MassaDichtheidBepalerMock)
-	#dim Gewicht As TECH.Weight = GewichtBepaler.GeefGewicht(PlaatStub)
+	#dim Gewicht As TECH.Weight = GewichtBepaler.GeefGewicht(..PlaatStub)
 	
 	Do MassaDichtheidBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Gewichtberekening voor Plaat">
 <Implementation><![CDATA[
-	#dim DummyRol As TECH.String = "DummyRol"
-	#dim DummyProductId As TECH.String = "DummyProductId"
-	#dim DummyMassaDichtheid As %Decimal = 1
-	
 	#dim MassaDichtheidBepalerStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.MassaDichtheidBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.impl.Plaat.MassaDichtheidBepaler).%New()
-	Do MassaDichtheidBepalerStub.IndienMethodCall("GeefMassaDichtheid", DummyProductId, DummyRol).DanReturn(DummyMassaDichtheid)
+	Do MassaDichtheidBepalerStub.IndienMethodCall("GeefMassaDichtheid", ..DummyProductId, ..DummyRol).DanReturn(..DummyMassaDichtheid)
 	
-	#dim DummyDimensies As DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies = ##class(DOM.PM.Maatwerk.LadeInfo.dto.BalkDimensies).%New()
-	Set DummyDimensies.Breedte = 2
-	Set DummyDimensies.Lengte = 3
-	Set DummyDimensies.Hoogte = 4
-
-	#dim PlaatStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Plaat).%New()
-	Do PlaatStub.IndienMethodCall("GeefDimensies").DanReturn(DummyDimensies)
-	Do PlaatStub.IndienMethodCall("GeefProductId").DanReturn(DummyProductId)
-	Do PlaatStub.IndienMethodCall("GeefRol").DanReturn(DummyRol)
-	
 	#dim GewichtBepaler As DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler = ##class(DOM.PM.Maatwerk.LadeInfo.impl.Plaat.GewichtBepaler).%New(MassaDichtheidBepalerStub)
-	#dim Gewicht As TECH.Weight = GewichtBepaler.GeefGewicht(PlaatStub)
+	#dim Gewicht As TECH.Weight = GewichtBepaler.GeefGewicht(..PlaatStub)
 	
 	Do $$$AssertEquals(Gewicht, 24)
 ]]></Implementation>