Index: vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml
===================================================================
diff -u -r3635 -r3636
--- vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(.../Test.cls.xml)	(revision 3635)
+++ vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(.../Test.cls.xml)	(revision 3636)
@@ -3,13 +3,51 @@
 <Class name="vhUnitTest.TECH.Svg.Basis.Path.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test bestaan van een line klasse">
+<Method name="Test bestaan van een line klasse open">
 <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>")
+	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)
+	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>