Index: vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml
===================================================================
diff -u -r3652 -r3655
--- vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3652)
+++ vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 3655)
@@ -49,7 +49,6 @@
 	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(38,0))
 	w "hoi"
 	Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
-	w "dit niet"
 	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19 L38 19 L38 0""></path>")
 ]]></Implementation>
 </Method>
@@ -80,10 +79,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test bestaan van een path klasse">
+<Method name="Test bestaan v/e SvgBox met ingevulde properties">
 <Implementation><![CDATA[
-	Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath("M40 115 a5 5 0 1 1 0.1 0")
-	Do ..AssertSvg(Path, "<path d=""M40 115 a5 5 0 1 1 0.1 0""></path>")
+	Set SvgBox = ##class(TECH.Svg.BasisElementFactory).%New().MaakSvgBox(0,0,150,100)
+	Do $$$AssertEquals(SvgBox.X,0)
+	Do $$$AssertEquals(SvgBox.Y,0)
+	Do $$$AssertEquals(SvgBox.Height,150)
+	Do $$$AssertEquals(SvgBox.Width,100)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml
===================================================================
diff -u -r3646 -r3655
--- vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(.../Test.cls.xml)	(revision 3646)
+++ vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(.../Test.cls.xml)	(revision 3655)
@@ -2,58 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.TECH.Svg.Basis.Path.Test">
 <Super>vhUnitTest.TestCase</Super>
-
-<Method name="Test bestaan van een line klasse open">
-<Implementation><![CDATA[
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(0,0))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(19,19))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(38,19))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(38,0))
-	Set Path = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList,0)
-	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19 L38 19 L38 0""></path>")
-]]></Implementation>
-</Method>
-
-<Method name="Test bestaan van een line klasse gesloten">
-<Implementation><![CDATA[
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(0,0))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(19,19))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(38,19))
-	Set Path = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList,1)
-	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19 L38 19z""></path>")
-]]></Implementation>
-</Method>
-
-<Method name="Test bestaan van een line klasse gesloten met minder dan 3 parameters, exceptie verwacht">
-<Implementation><![CDATA[
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(0,0))
-	Do CoordinatesList.Insert(##class(TECH.Svg.Basis.Path.Coordinates).%New(19,19))
-	If (CoordinatesList.Count() <3)
-	{
-		#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het afsluiten van een figuur is pas praktisch als er meer dan 2 coördinaten aanwezig zijn.")
-		Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
-	}
-	Set Path = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList,1)
-	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19z""></path>")
-]]></Implementation>
-</Method>
-
-<Method name="aTest bestaan van een circle klasse">
-<Implementation><![CDATA[
-	Set Path = ##class(TECH.Svg.Basis.Path).%New("M40 115 a5 5 0 1 1 0.1 0")
-	Do ..AssertSvg(Path, "<path d=""M40 115 a5 5 0 1 1 0.1 0""></path>")
-]]></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>