Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(revision 60104)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen.VoegToeBoringen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: standaardgedrag met rugboring">
+<Implementation><![CDATA[
+	Set Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	Do $$$AssertEquals(Boringen.Group.SvgBox.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaardgedrag met 2 boringen">
+<Implementation><![CDATA[
+	Set Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoring()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=6
+	Set Boring.BoorDiepte = -1
+	Set Boring.BoringPlaats = "VUL"
+	Set Boring.BoringType = "ON"
+	Set Boring.XPos = 175
+	Set Boring.YPos = 350
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	Do ##class(Tools.Wlip).%New(238).ObjToXML(Boringen.Group)
+	Do $$$AssertEquals(Boringen.Group.SvgBox.Count(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(revision 60104)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen.VoegToeBeslagBoringen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: standaardgedrag met rugboring">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslag()
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+	#dim Key As %Integer = Kaderdeur.Beslag.Next("")
+	#dim Beslag As Prod.GADef.emKadBeslag = Kaderdeur.Beslag.GetAt(Key)
+
+	Do Boringen.VoegToeBeslagBoringen(Beslag.Beslag,"PL",0,0,0)
+	
+	Do $$$AssertEquals(Boringen.Group.SvgBox.GetAt(1).SvgBox.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaardgedrag met 2 boringen">
+<Implementation><![CDATA[
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslag()
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+	#dim Key As %Integer = Kaderdeur.Beslag.Next("")
+	#dim Beslag As Prod.GADef.emKadBeslag = Kaderdeur.Beslag.GetAt(Key)
+
+	Set Boring.BoorDiameter=6
+	Set Boring.BoorDiepte = -1
+	Set Boring.BoringPlaats = "VUL"
+	Set Boring.BoringType = "ON"
+	Set Boring.XPos = 175
+	Set Boring.YPos = 350
+	Do Beslag.Beslag.Boringen.SetAt(Boring, Beslag.Beslag.Boringen.Count()+1)
+	Do Boringen.VoegToeBeslagBoringen(Beslag.Beslag,"PL",0,0,0)
+	
+	Do $$$AssertEquals(Boringen.Group.SvgBox.GetAt(1).SvgBox.Count(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>