Index: vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml
===================================================================
diff -u -r3695 -r3701
--- vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml	(.../Test.cls.xml)	(revision 3695)
+++ vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml	(.../Test.cls.xml)	(revision 3701)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.TECH.Svg.Services.CoordinatesService.MaakCoordinatenLijstVanPunten.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test aanmaken Lijst van Punten">
+<Method name="Test aanmaken Lijst van Punten standaard">
 <Implementation><![CDATA[
 	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
 	#dim CoordinatesList As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(0,1,2,3,4,5,6,7)
@@ -17,6 +17,34 @@
 	Do $$$AssertEquals(CoordinatesList.GetAt(4).Y,7)
 ]]></Implementation>
 </Method>
+
+<Method name="Test aanmaken Lijst van 2 Punten">
+<Implementation><![CDATA[
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	#dim CoordinatesList As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(0,1)
+	Do $$$AssertEquals(CoordinatesList.GetAt(1).X,0)
+	Do $$$AssertEquals(CoordinatesList.GetAt(1).Y,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken Lijst met 0 Punten">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("het aantal punten is niet even of niet ingevuld")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	#dim CoordinatesList As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten()
+]]></Implementation>
+</Method>
+
+<Method name="Test aanmaken Lijst met 1 Punt">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("het aantal punten is niet even of niet ingevuld")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	#dim CoordinatesList As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(1)
+]]></Implementation>
+</Method>
 </Class>