Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Beslagteknikk.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Beslagteknikk.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Beslagteknikk.cls.xml	(revision 57718)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.Beslagteknikk">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="GeefPersonalityId">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.BeslagteknikkPersonality).Instance().GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="Test TAOR kenmerken">
+<Implementation><![CDATA[
+	#dim VerwachteAankoopPrijs as %Decimal = 72.68
+	#dim VerwachteVerkoopPrijs as %Decimal = 2125.166666666666667
+	#dim VerwachteLijstPrijs as %Decimal = 127.51
+	Do ..AssertPrijzen(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade(), VerwachteAankoopPrijs, VerwachteVerkoopPrijs, VerwachteLijstPrijs)
+]]></Implementation>
+</Method>
+
+<Method name="AssertPrijzen">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteAankoopPrijs:%Numeric,VerwachteVerkoopPrijs:%Numeric,VerwachteLijstPrijs:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Set Winkelkar.PersonalityID = ..GeefPersonalityId()
+	
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
+	
+	#dim PrijsBerekeningPrijsBepaler As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New()
+	#dim PrijsBerekeningPrijzen As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen = PrijsBerekeningPrijsBepaler.BerekenPrijzen(Winkelkar, MaatwerkLijn)
+
+	Do $$$AssertEquals(PrijsBerekeningPrijzen.AankoopPrijs, VerwachteAankoopPrijs)
+	Do $$$AssertEquals(PrijsBerekeningPrijzen.VerkoopPrijs, VerwachteVerkoopPrijs)
+	Do $$$AssertEquals(PrijsBerekeningPrijzen.LijstPrijs, VerwachteLijstPrijs)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>