Index: vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter/GeefCacheClassnameVoorHalffab/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter/GeefCacheClassnameVoorHalffab/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter/GeefCacheClassnameVoorHalffab/Test.cls.xml	(revision 63282)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffab.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test HalffabDtoParsedFromJson is een specifiek Halffab -&gt; geeft specifieke (MVX) Halffab klassenaam">
+<Implementation><![CDATA[
+	#dim HalffabDtoParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = ..GeefHalffabDtoParsedFromJson("MVX_HalffabBodem")
+	#dim VerwachteKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabBodem"
+	
+	Do ..AssertCacheClassnameVoorHalffab(HalffabDtoParsedFromJson, VerwachteKlasseNaam)
+]]></Implementation>
+</Method>
+
+<Method name="Test HalffabDtoParsedFromJson is basis halffab -&gt; geeft algemene Halffab klassenaam">
+<Implementation><![CDATA[
+	#dim HalffabDtoParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = ..GeefHalffabDtoParsedFromJson("Halffab")
+	#dim VerwachteKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.Halffab"
+	
+	Do ..AssertCacheClassnameVoorHalffab(HalffabDtoParsedFromJson, VerwachteKlasseNaam)
+]]></Implementation>
+</Method>
+
+<Method name="Test KlasseNaamInfo bevat UnittestData -&gt; geeft alsnog een aanvaarbaar antwoord">
+<Implementation><![CDATA[
+	#dim HalffabDtoParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = ..GeefHalffabDtoParsedFromJson("Halffab", "UT_PackageNaam.UT_TestKlasseNaam, MaatwerkCalculator.Dom")
+	#dim VerwachteKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.UT_TestKlasseNaam"
+	
+	Do ..AssertCacheClassnameVoorHalffab(HalffabDtoParsedFromJson, VerwachteKlasseNaam)
+]]></Implementation>
+</Method>
+
+<Method name="Test KlasseNaamInfo bevat uitsluitend een klasseNaam -&gt; geeft alsnog een aanvaarbaar antwoord">
+<Implementation><![CDATA[
+	#dim HalffabDtoParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = ..GeefHalffabDtoParsedFromJson("Halffab", "UT_TestKlasseNaam")
+	#dim VerwachteKlasseNaam As %String = "DOM.PM.Maatwerk.Calc.HF.UT_TestKlasseNaam"
+	
+	Do ..AssertCacheClassnameVoorHalffab(HalffabDtoParsedFromJson, VerwachteKlasseNaam)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="AssertCacheClassnameVoorHalffab">
+<FormalSpec>HalffabDtoParsedFromJson:APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson,VerwachteKlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ClassnameConverter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter).%New()
+	#dim CacheClassnameVoorHalffab As %String = ClassnameConverter.GeefCacheClassnameVoorHalffab(HalffabDtoParsedFromJson)
+	
+	Do $$$AssertEquals(CacheClassnameVoorHalffab, VerwachteKlasseNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabDtoParsedFromJson">
+<FormalSpec>KlasseNaam:%String,OverrideKlasseNaamInfo:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabDtoParsedFromJson = ##class(APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson).%New()
+	Set HalffabDtoParsedFromJson.KlasseNaamInfo = "MaatwerkCalculator.Dom.PM.Maatwerk.Calc.HF.dto.Halffab, MaatwerkCalculator.Dom"
+	Set HalffabDtoParsedFromJson.Klassenaam = KlasseNaam
+
+	If $$$HasLength(OverrideKlasseNaamInfo) {
+		Set HalffabDtoParsedFromJson.KlasseNaamInfo = OverrideKlasseNaamInfo
+	}
+	
+	Quit HalffabDtoParsedFromJson
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>