Index: vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/LLA/ParseJsonMaatwerkFrameworkRestApi/Test.cls.xml	(revision 61379)
@@ -0,0 +1,151 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.LLA.ParseJsonMaatwerkFrameworkRestApi.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="aTestJSONStream">
+<Implementation><![CDATA[
+	#dim JSONStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	do JSONStream.Write("{ ""Field1"":""Field1Value"" }")
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONStream)
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest zonder ingegeven kenmerken en productdata">
+<Implementation><![CDATA[
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"" }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest zonder ingegeven kenmerken, met productdata">
+<Implementation><![CDATA[
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" } }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type">
+<Implementation><![CDATA[
+	//#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	
+	//#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" } }"
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"" }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest met ingegeven kenmerken zonder ingevulde properties van list type behalve onderdelen (list of string)">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"", ""Onderdelen"": [ ""OnderdelenString1"", ""OnderdelenString2"" ] }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+
+	if $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.Count(),2) {
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(1),"OnderdelenString1")	
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(2),"OnderdelenString2")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test JSON GeefProductRestRequest met ingegeven kenmerken met ingevulde properties van list type">
+<Implementation><![CDATA[
+	// TODO verdere lijst data aanvullen
+	// TODO 2 volgende test is dan op in het GeefProductRestRequest de ingegeven kenmerken defenitie te vervangen door de juiste defenitie van de DOM klasse ipv de ztryoutLLA.....iK
+	#dim JSONString As %String = "{ ""KlantID"":""FieldDOMVKPVanHoeckeKlantIDValue"", ""Aantal"":""FieldIntValue"", ""ProductData"" : { ""PRNr"":""ProductDataFieldPRNrIntValue1"", ""DossierNummer"":""ProductDataFieldDossierNummerStringValue1"" }, ""IngegevenKenmerken"": { ""ProductieWijze"":""IngegevenKenmerkenFieldVersieNrStringValue"", ""VersieNr"":""IngegevenKenmerkenFieldVersieNrIntValue"", ""Onderdelen"": [ ""OnderdelenString1"", ""OnderdelenString2"" ] }   }"
+
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest = ..Parse(JSONString)
+	do $$$AssertEquals(Object.KlantID,"FieldDOMVKPVanHoeckeKlantIDValue")
+	do $$$AssertEquals(Object.Aantal,"FieldIntValue")
+	do $$$AssertEquals(Object.ProductData.DossierNummer,"ProductDataFieldDossierNummerStringValue1")
+	do $$$AssertEquals(Object.ProductData.PRNr,"ProductDataFieldPRNrIntValue1")
+	do $$$AssertEquals(Object.IngegevenKenmerken.ProductieWijze,"IngegevenKenmerkenFieldVersieNrStringValue")
+	do $$$AssertEquals(Object.IngegevenKenmerken.VersieNr,"IngegevenKenmerkenFieldVersieNrIntValue")
+
+	if $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.Count(),2) {
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(1),"OnderdelenString1")	
+		do $$$AssertEquals(Object.IngegevenKenmerken.Onderdelen.GetAt(2),"OnderdelenString2")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONStringMetEmbeddedListMeerdereItems">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONStringMetEmbeddedListMeerdereItemsMeerdereVelden">
+<Implementation><![CDATA[
+	#dim JSONString As %String = "{ ""Field1"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value1"" , ""Field2"":""EmbeddedField2Value1""},{ ""Field1"":""EmbeddedField1Value2""}] }"
+	
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+	
+	do $$$AssertEquals(Object.Field1,"Field1Value")
+	if $$$AssertEquals(Object.Embedded.Count(),2) {
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field1,"EmbeddedField1Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(1).Field2,"EmbeddedField2Value1")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field1,"EmbeddedField1Value2")	
+		do $$$AssertEquals(Object.Embedded.GetAt(2).Field2,"")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="aTestJSONMetOnbestaandeVelden">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsing JSON file failed")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	#dim JSONString As %String = "{ ""UnExistingField"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
+	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>JSONString:%String</FormalSpec>
+<ReturnType>vhUnitTest.TECH.JSON.Parser.ParseJSON.Main</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectClassName As %String = ##class(zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest).%ClassName(1)
+	#dim Object As zTryout.LLA.RestAPI.ParseJsonObject.GeefProductRestRequest
+	do ##class(TECH.JSON.Parser).ParseJSON(JSONString,ObjectClassName,.Object)
+	quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>