Index: vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnConverter/Test.cls.xml	(revision 42989)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Controle.Order.AdminOrderLijnConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Property name="ProductRolApiStub">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductOrderLijnStub">
+<Type>DOM.VKP.ProductOrderlijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Set ..ProductOrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+	
+	#dim ProductId As %String = ..ProductOrderLijnStub.GeefProductID()
+	#dim Product As DOM.PM.impl.ProductImpl = ..GeefTeConverterenProduct()
+	
+	Do ..ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct",ProductId).DanReturn(Product)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Convert returnt het juiste type">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals($classname(ConvertedProductOrderLijn),"AXimpl.Controle.Order.OrderLijn")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Klant bevat het KlantNr">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.Klant,"01234")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeverDatum bevat de LeverDag">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.LeverDatum,"64470")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Product bevat het IdentNummer">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.Product,"0.123.451.0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerkochtAantal bevat het Aantal">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.VerkochtAantal,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerkoopOrderId bevat het AxSalesId">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.VerkoopOrderId,"AXSalesId")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VerkoopOrderLijnId bevat het AxInventTransId">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	do $$$AssertEquals(ConvertedProductOrderLijn.VerkoopOrderLijnId,"000019541")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>DOM.PM.impl.ProductImpl</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Controle.Order.AdminOrderLijnConverter</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.Controle.Order.AdminOrderLijnConverter).%New(..ProductRolApiStub)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>