Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml =================================================================== diff -u -r59869 -r59877 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59869) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59877) @@ -47,8 +47,9 @@ #dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 2) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 3) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Programme"), "LEGRABOX") + Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false") ]]> @@ -71,8 +72,9 @@ Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 5) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 6) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Programme"), "LEGRABOX") + Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Corpusbreedte"), "500") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.CorpusWanddikte"), "0") @@ -85,8 +87,9 @@ #dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 2) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 3) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Programme"), "LEGRABOX") + Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false") ]]> @@ -96,8 +99,9 @@ #dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(3) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 4) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 5) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Programme"), "LEGRABOX") + Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Lijn.Aantal"), "1") Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_2), ..#RandomKenmerkValue_2) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt(..#RandomKenmerkName_3), ..#RandomKenmerkValue_3) Do $$$AssertEquals(Resultaat.EconKenmerken.GetAt("Data.Kenmerken.Isbinnenlade"), "false") Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml =================================================================== diff -u -r59722 -r59877 --- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml (.../OCCKenmerkenConverter.cls.xml) (revision 59722) +++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml (.../OCCKenmerkenConverter.cls.xml) (revision 59877) @@ -127,6 +127,7 @@ EconConfiguratieArray:%ArrayOfDataTypes 1