FishEye: Tag 29436 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/TAOR/Test.cls.xml	(revision 29436)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.TAOR.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.TestBase</Super>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test TAORKenmerken">
+<Implementation><![CDATA[	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+
+<Method name="Test TAORKenmerken met Werktuigloze koppeling">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXKoppeling]")
+	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+
+<Method name="Test TAORKenmerken met AfdekkapKleur">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXEindkap]: [AL]")
+	Do ..AssertInfoDiverse(..TAORKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/Test.cls.xml
===================================================================
diff -u -r29416 -r29436
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/Test.cls.xml	(.../Test.cls.xml)	(revision 29416)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/Test.cls.xml	(.../TestBase.cls.xml)	(revision 29436)
@@ -1,13 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.Test">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.TestBase">
+<Abstract>1</Abstract>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="VerwachteInfoDiverseItems">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
@@ -22,62 +18,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test LBXKenmerken">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
-	
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
-<Method name="Test LBXKenmerken met Tip-on Blumotion">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
-	Set ..IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseLBXTOB]")
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
-<Method name="Test LBXKenmerken met ZijwandType Free">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
-	Set ..IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseLBXFree]")
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
-<Method name="Test TAORKenmerken">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
-<Method name="Test TAORKenmerken met Werktuigloze koppeling">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set ..IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXKoppeling]")
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
-<Method name="Test TAORKenmerken met AfdekkapKleur">
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set ..IngegevenKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
-	
-	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXEindkap]: [AL]")
-	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
-]]></Implementation>
-</Method>
-
 <Method name="AssertInfoDiverse">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteInfoDiverseItems:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenInfoDiverseBepaler/BepaalInfoDiverseItems/LBX/Test.cls.xml	(revision 29436)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.LBX.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler.BepaalInfoDiverseItems.TestBase</Super>
+
+<Property name="LBXKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..LBXKenmerken = ##class(vhTest.Utils.Maatwerk.LBXIngegevenKenmerken).GeefLegeLBXKenmerken()
+]]></Implementation>
+</Method>
+
+<Method name="Test LBXKenmerken">
+<Implementation><![CDATA[	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+
+<Method name="Test LBXKenmerken met Tip-on Blumotion">
+<Implementation><![CDATA[
+	Set ..LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseLBXTOB]")
+	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+
+<Method name="Test LBXKenmerken met ZijwandType Free">
+<Implementation><![CDATA[
+	Set ..LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseLBXFree]")
+	Do ..AssertInfoDiverse(..LBXKenmerken, ..VerwachteInfoDiverseItems)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method "Test TAORKenmerken"()
+{
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	
+	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
+}
+
+Method "Test TAORKenmerken met Werktuigloze koppeling"()
+{
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set ..IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Drevel()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXKoppeling]")
+	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
+}
+
+Method "Test TAORKenmerken met AfdekkapKleur"()
+{
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set ..IngegevenKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
+	
+	Do ..VerwachteInfoDiverseItems.Insert("[DiverseTAXEindkap]: [AL]")
+	Do ..AssertInfoDiverse(..IngegevenKenmerken, ..VerwachteInfoDiverseItems)
+}*/
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method AssertInfoDiverse(IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken, VerwachteInfoDiverseItems As %ListOfDataTypes) [ Private ]
+{
+	#Dim Bepaler As DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenInfoDiverseBepaler).%New()
+	#Dim StandaardVertalerStub = ##class(vhTest.Utils.Vertaler).%New("")
+	#Dim KleurCodeVertalerStub = ##class(vhTest.Utils.Vertaler).%New("")
+	#Dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).MockInstance()
+	
+	Do VertaalAPIStub.IndienMethodCall("GeefStandaardVertaler", Taal).DanReturn(StandaardVertalerStub)
+	Do VertaalAPIStub.IndienMethodCall("GeefKleurCodeVertaler", Taal).DanReturn(KleurCodeVertalerStub)
+	
+	#Dim InfoDiverseItems As %ListOfDataTypes = Bepaler.BepaalInfoDiverseItems(IngegevenKenmerken, Taal)
+	
+	Do $$$AssertEqualsList(InfoDiverseItems, VerwachteInfoDiverseItems)
+}*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>