Index: vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Admin/Common/HerverpakteSoprService/Test.cls.xml	(revision 51033)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Admin.Common.HerverpakteSoprService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId1">
+<Type>%String</Type>
+<Default>1001</Default>
+</Parameter>
+
+<Parameter name="ProductId2">
+<Type>%String</Type>
+<Default>1002</Default>
+</Parameter>
+
+<Parameter name="ProductId3">
+<Type>%String</Type>
+<Default>1003</Default>
+</Parameter>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRolApi">
+<Type>DOM.PM.ProductRolAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KindProductService">
+<Type>AXimpl.Admin.Common.HerverpakteSoprService.KindProductService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: IsHerverpakteSopr -&gt; True">
+<Implementation><![CDATA[
+	Set MoederProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New(..#ProductId1)
+	Do MoederProduct.IndienMethodCall("IsStockOverKinderen").DanReturn($$$True)
+	
+	Set ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Do ProductRolApiStub.IndienMethodCall("BestaatAdministratiefProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId1).DanReturn($$$True)
+	Do ProductRolApiStub.IndienMethodCall("GeefSamengesteldProduct", ..#ProductId1).DanReturn(MoederProduct)
+	Do ProductRolApiStub.IndienMethodCall("IsSamengesteldProduct", ..#ProductId2).DanReturn($$$True)
+	
+	Set KindProductServiceStub = ##class(vhTest.Mock.AXimpl.Admin.Common.HerverpakteSoprService.KindProductService).%New()
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId1, $$$False, "Sopr").DanReturn(..#ProductId2)
+	Do KindProductServiceStub.IndienMethodCall("GeefKindProductId",..#ProductId2, $$$True, "SoprKind").DanReturn(..#ProductId3)
+	
+	Set ..ProductRolApi = ProductRolApiStub
+	Set ..KindProductService = KindProductServiceStub
+	#dim HerverpakteSoprService As AXimpl.Admin.Common.HerverpakteSoprService.KindProductService = ..GeefHerverpakteSoprService()
+	#dim Result As %Boolean = HerverpakteSoprService.IsHerverpakteSopr(..#ProductId1)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHerverpakteSoprService">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New(, ..ProductRolApi, ..KindProductService)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>