Index: vhUnitTest/DOM/PM/Maatwerk/Filter/impl/GeenFilter/Test.cls.xml
===================================================================
diff -u -r29059 -r30703
--- vhUnitTest/DOM/PM/Maatwerk/Filter/impl/GeenFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/Filter/impl/GeenFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 30703)
@@ -1,19 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Filter.impl.GeenFilter.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.Filter.impl.TestBase</Super>
 
-<Property name="GeenFilter">
-<Type>DOM.PM.Maatwerk.Filter.impl.GeenFilter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
+	do ##super(aTestName)
 
-	Set ..GeenFilter = ##class(DOM.PM.Maatwerk.Filter.impl.GeenFilter).%New()
+	set ..Filter = ##class(DOM.PM.Maatwerk.Filter.impl.GeenFilter).%New()
 ]]></Implementation>
 </Method>
 
@@ -26,10 +21,7 @@
 </Method>
 
 <Method name="Test is niet gefilterd voor TAORKenmerken">
-<Implementation><![CDATA[
-	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).GeefLegeTAORKenmerken()
-	
-	Do ..AssertIsGefilterd(TAORKenmerken, $$$False)
+<Implementation><![CDATA[	do ..AssertIsGefilterd(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), $$$False)
 ]]></Implementation>
 </Method>
 
@@ -64,18 +56,6 @@
 	Do ..AssertIsGefilterd(MATKenmerken, $$$False)
 ]]></Implementation>
 </Method>
-
-<Method name="AssertIsGefilterd">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachtResultaat:%Boolean</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim ProductStub As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	
-	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken)
-	
-	Do $$$AssertEquals(..GeenFilter.IsGefilterd(ProductStub), VerwachtResultaat)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Filter/impl/BinnenladeFilter/Test.cls.xml
===================================================================
diff -u -r30694 -r30703
--- vhUnitTest/DOM/PM/Maatwerk/Filter/impl/BinnenladeFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 30694)
+++ vhUnitTest/DOM/PM/Maatwerk/Filter/impl/BinnenladeFilter/Test.cls.xml	(.../Test.cls.xml)	(revision 30703)
@@ -1,19 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.Filter.impl.BinnenladeFilter.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.Filter.impl.TestBase</Super>
 
-<Property name="BinnenladeFilter">
-<Type>DOM.PM.Maatwerk.Filter.impl.BinnenladeFilter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
+	do ##super(aTestName)
 
-	Set ..BinnenladeFilter = ##class(DOM.PM.Maatwerk.Filter.impl.BinnenladeFilter).%New()
+	set ..Filter = ##class(DOM.PM.Maatwerk.Filter.impl.BinnenladeFilter).%New()
 ]]></Implementation>
 </Method>
 
@@ -35,19 +30,12 @@
 </Method>
 
 <Method name="Test is gefilterd voor TAORKenmerken met binnenlade">
-<Implementation><![CDATA[
-	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set TAORKenmerken.IsBinnenlade = $$$True
-	
-	Do ..AssertIsGefilterd(TAORKenmerken, $$$True)
+<Implementation><![CDATA[	do ..AssertIsGefilterd(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade(), $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test is niet gefilterd voor TAORKenmerken zonder binnenlade">
-<Implementation><![CDATA[
-	#Dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	
-	Do ..AssertIsGefilterd(TAORKenmerken, $$$False)
+<Implementation><![CDATA[	Do ..AssertIsGefilterd(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), $$$False)
 ]]></Implementation>
 </Method>
 
@@ -91,18 +79,6 @@
 	Do ..AssertIsGefilterd(MATKenmerken, $$$False)
 ]]></Implementation>
 </Method>
-
-<Method name="AssertIsGefilterd">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachtResultaat:%Boolean</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim ProductStub As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	
-	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken)
-	
-	Do $$$AssertEquals(..BinnenladeFilter.IsGefilterd(ProductStub), VerwachtResultaat)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Filter/impl/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Filter/impl/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Filter/impl/TestBase.cls.xml	(revision 30703)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Filter.impl.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Filter">
+<Type>DOM.PM.Maatwerk.Filter.Filter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductStub">
+<Type>vhTest.Mock.DOM.PM.MaatwerkProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+
+	set ..ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+]]></Implementation>
+</Method>
+
+<Method name="AssertIsGefilterd">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachtResultaat:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken)
+	
+	do $$$AssertEquals(..Filter.IsGefilterd(..ProductStub), VerwachtResultaat)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>