Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml	(revision 68670)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="Index">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="WinkelkarInfoPrefix">
+<Type>%String</Type>
+<Default>Data.Lijn.Winkelkarinfo</Default>
+</Parameter>
+
+<Parameter name="OnvertaalbaarKenmerk">
+<Type>%String</Type>
+<Default>Onvertaalbaar kenmerk</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..Converter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Onvertaalbare BlumKenmerkName geeft een lege string terug">
+<Implementation><![CDATA[	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Unknown", "5", "", "5")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Onvertaalbare BlumKenmerkValue geeft een lege string terug">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Amount", "Unknown", ..#WinkelkarInfoPrefix_"["_..#Index_"].Aantal" , ..#OnvertaalbaarKenmerk)
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Amount", "5mm", ..#WinkelkarInfoPrefix_"["_..#Index_"].Aantal" , ..#OnvertaalbaarKenmerk)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie met integer als WinkelkarKenmerkValue">
+<Implementation><![CDATA[
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Amount", 2, ..#WinkelkarInfoPrefix_"["_..#Index_"].Aantal", 2)
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Installation height", 2100, ..#WinkelkarInfoPrefix_"["_..#Index_"].Inbouwhoogte", 2100)
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Installation depth", 945, ..#WinkelkarInfoPrefix_"["_..#Index_"].Inbouwdiepte", 945)
+	Do ..AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn("Mounting width", 2300, ..#WinkelkarInfoPrefix_"["_..#Index_"].Inbouwbreedte", 2300)
+]]></Implementation>
+</Method>
+
+<Method name="AssertConversieBlumKenmerkenNaarWinkelkarInfoLijn">
+<FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteAXKenmerkName:%String,VerwachteAXKenmerkValue:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BlumKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set BlumKenmerk.Name = BlumKenmerkName
+	Set BlumKenmerk.Value = BlumKenmerkValue
+	
+	#dim Resultaat As WS.Vhisie4.OCC.dto.Kenmerk = ..Converter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(BlumKenmerk, "dummyTaal", ..#Index)
+	
+	Do $$$AssertEquals(Resultaat.Name, VerwachteAXKenmerkName)
+	Do $$$AssertEquals(Resultaat.Value, VerwachteAXKenmerkValue)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>