Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml
===================================================================
diff -u -r60047 -r60105
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60047)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60105)
@@ -6,9 +6,9 @@
 <Method name="Test bestaan DoorBoring">
 <Implementation><![CDATA[
 	
-		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(15,15,5,5)
+		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
 		
-		Do ..AssertSvg(DoorBoring, "<svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""doorboring"">  <circle fill=""black"" cx=""2.5"" cy=""2.5"" r="".5""></circle></svg>")
+		Do ..AssertSvg(DoorBoring, "<svg x=""0"" y=""0"" height=""10"" width=""10"" id=""doorboring"">  <circle fill=""black"" cx=""5"" cy=""5"" r=""5""></circle></svg>")
 ]]></Implementation>
 </Method>