Index: vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/KindProductService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/KindProductService/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/KindProductService/Test.cls.xml	(revision 50992)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="Test: Default werking igv Sopr">
+<Implementation><![CDATA[
+	Set BouwsteenProduct1 = ##class(vhTest.Mock.DOM.PM.Product).%New(..#ProductId)
+	Do BouwsteenProduct1.IndienMethodCall("GeefPRNr").DanReturn(..#ProductId)
+	
+	Set BouwsteenLijst = ##class(%ListOfDataTypes).%New()
+	Do BouwsteenLijst.Insert(BouwsteenProduct1)
+	
+	Set BouwsteenIteratorMock = ##class(TECH.ListIterator).%New(BouwsteenLijst)
+	
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId)
+	Do MoederProduct.IndienMethodCall("GeefKindBouwsteenIterator").DanReturn(BouwsteenIteratorMock)
+	
+	Set ProductRolApi = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApi.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId).DanReturn(MoederProduct)
+	
+	Set SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprProductConverter.IndienMethodCall("IsSOPRInCache", ..#ProductId).DanReturn($$$True)
+	
+	#dim MagMeerdereKinderenHebben As %Boolean = $$$False
+	#dim ZoekenOpSoprOfSoprKind As %String = "Sopr"
+	#dim KindProductId As %String = ##class(AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New(ProductRolApi, SoprProductConverter).GeefKindProductId(..#ProductId, MagMeerdereKinderenHebben, ZoekenOpSoprOfSoprKind)
+	
+	Do $$$AssertEquals(KindProductId, ..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Default werking igv SoprKind">
+<Implementation><![CDATA[
+	Set BouwsteenProduct1 = ##class(vhTest.Mock.DOM.PM.Product).%New(..#ProductId)
+	Do BouwsteenProduct1.IndienMethodCall("GeefPRNr").DanReturn(..#ProductId)
+	
+	Set BouwsteenLijst = ##class(%ListOfDataTypes).%New()
+	Do BouwsteenLijst.Insert(BouwsteenProduct1)
+	
+	Set BouwsteenIteratorMock = ##class(TECH.ListIterator).%New(BouwsteenLijst)
+	
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId)
+	Do MoederProduct.IndienMethodCall("GeefKindBouwsteenIterator").DanReturn(BouwsteenIteratorMock)
+	
+	Set ProductRolApi = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApi.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId).DanReturn(MoederProduct)
+	
+	Set SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprProductConverter.IndienMethodCall("IsSOPRKindInCache", ..#ProductId).DanReturn($$$True)
+	
+	#dim MagMeerdereKinderenHebben As %Boolean = $$$False
+	#dim ZoekenOpSoprOfSoprKind As %String = "SoprKind"
+	#dim KindProductId As %String = ##class(AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New(ProductRolApi, SoprProductConverter).GeefKindProductId(..#ProductId, MagMeerdereKinderenHebben, ZoekenOpSoprOfSoprKind)
+	
+	Do $$$AssertEquals(KindProductId, ..#ProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>