Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringELementFactory/Test.cls.xml	(revision 60297)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringELementFactory.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan DoorBoring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring
+		Set DoorBoring = BoringElementFactory.MaakDoorBoring(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
+		
+		Do ..AssertSvg(DoorBoring, "<svg x=""-5"" y=""-5"" height=""10"" width=""10"" id=""doorboring"">  <circle fill=""black"" cx=""5"" cy=""5"" r=""5""></circle></svg>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling objecten DoorBoring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring
+		Set DoorBoring = BoringElementFactory.MaakDoorBoring(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
+		
+		Do $$$AssertEquals(DoorBoring.SvgBox.Circles.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan Puntboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Puntboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
+		Set Puntboring = BoringElementFactory.MaakPuntBoring(15,15,5,5)
+		Do ..AssertSvg(Puntboring, "<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""puntboring"">  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""5"" x2=""5"" y2=""0""></line></svg>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling objecten Puntboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Puntboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
+		Set Puntboring = BoringElementFactory.MaakPuntBoring(15,15,5,5)
+		Do $$$AssertEquals(Puntboring.SvgBox.CrossDiags.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan Rugboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Rugboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring
+		Set Rugboring = BoringElementFactory.MaakRugBoring(15,15,5,5)
+		Do ..AssertSvg(Rugboring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""rugboring"">  <circle fill=""black"" cx=""2.5"" cy=""2.5"" r=""2.272727272727272727""></circle>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""5"" x2=""5"" y2=""0""></line></svg>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling objecten Rugboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Rugboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring
+		Set Rugboring = BoringElementFactory.MaakRugBoring(15,15,5,5)
+		Do $$$AssertEquals(Rugboring.SvgBox.CrossDiags.Count(),1)
+		Do $$$AssertEquals(Rugboring.SvgBox.Circles.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan Zijboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Zijboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
+		Set Zijboring = BoringElementFactory.MaakZijBoring(15,15,5,5)
+		Do ..AssertSvg(Zijboring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""zijboring"">  <g transform=""rotate(0 2.5 2.5)"">    <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""0"" x2=""5"" y2=""0""></line>    <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line>  </g></svg>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling objecten Zijboring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim Zijboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
+		Set Zijboring = BoringElementFactory.MaakZijBoring(15,15,5,5)
+		Do $$$AssertEquals(Zijboring.SvgBox.Groups.GetAt(1).TCrosss.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan Speciale Boring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
+		Set SpecialeBoring = BoringElementFactory.MaakSpecialeBoring(15,15,5,5)
+		Do ..AssertSvg(SpecialeBoring,"<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""specialeBoring"">  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""0"" y1=""2.5"" x2=""5"" y2=""2.5""></line>  <line stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line></svg>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling objecten Speciale Boring">
+<Implementation><![CDATA[
+		Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+		#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
+		Set SpecialeBoring = BoringElementFactory.MaakSpecialeBoring(15,15,5,5)
+		Do $$$AssertEquals(SpecialeBoring.SvgBox.CrossVHs.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSvg">
+<FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Replace($$ObjToXML^vhLib(SvgObject), $$$CRLF,""), VerwachteXml)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>