Index: vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml	(revision 3652)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.BasisElementFactory.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan rect klasse na het aanmaken">
+<Implementation><![CDATA[
+	#dim Rect As TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,150,105)
+	Do ..AssertSvg(Rect, "<rect x=""0"" y=""0"" width=""150"" height=""105""></rect>")
+]]></Implementation>
+</Method>
+
+<Method name="Test wegschrijven van circle klasse naar svg na het aanmaken">
+<Implementation><![CDATA[
+		Set Circle = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(15,35,1)
+		Do ..AssertSvg(Circle, "<circle cx=""15"" cy=""35"" r=""1""></circle>")
+]]></Implementation>
+</Method>
+
+<Method name="Test correcte invulling v/d property">
+<Implementation><![CDATA[
+		Set Circle = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(15,35,1)
+		Do $$$AssertEquals(Circle.MiddelpuntX,15,"")
+		Do $$$AssertEquals(Circle.MiddelpuntY,35,"")
+		Do $$$AssertEquals(Circle.Straal,1,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een line klasse">
+<Implementation><![CDATA[
+		Set Line = ##class(TECH.Svg.BasisElementFactory).%New().MaakLijn(35,30,35,40)
+		Do ..AssertSvg(Line, "<line x1=""35"" y1=""30"" x2=""35"" y2=""40""></line>")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een text klasse">
+<Implementation><![CDATA[
+		Set Text = ##class(TECH.Svg.BasisElementFactory).%New().MaakText(35,30,"hoi")
+		Do ..AssertSvg(Text, "<text x=""35"" y=""30"">hoi</text>")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een path 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))
+	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>
+
+<Method name="Test bestaan van een path 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.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
+	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19 L38 19z""></path>")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een path 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.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
+	Do ..AssertSvg(Path, "<path d=""M0 0 L19 19z""></path>")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een path klasse">
+<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>")
+]]></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>
FishEye: Tag 3652 refers to a dead (removed) revision in file `vhUnitTest/TECH/Svg/Basis/Line.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3652 refers to a dead (removed) revision in file `vhUnitTest/TECH/Svg/Basis/Text/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3652 refers to a dead (removed) revision in file `vhUnitTest/TECH/Svg/Basis/Circle/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3652 refers to a dead (removed) revision in file `vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?