Index: vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml
===================================================================
diff -u -r3695 -r3729
--- vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml (.../Test.cls.xml) (revision 3695)
+++ vhUnitTest/TECH/Svg/BasisElementFactory/Test.cls.xml (.../Test.cls.xml) (revision 3729)
@@ -6,6 +6,7 @@
")
Do $$$AssertEquals(Rect.Width,150)
Do $$$AssertEquals(Rect.Height,105)
@@ -17,13 +18,15 @@
")
]]>
")
Do $$$AssertEquals(Line.X1,35)
Do $$$AssertEquals(Line.Y1,30)
@@ -44,6 +48,7 @@
hoi")
Do $$$AssertEquals(Text.X,35)
Do $$$AssertEquals(Text.Y,30)
@@ -59,6 +64,7 @@
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(38,19))
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(38,0))
Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
+
Do ..AssertSvg(Path, "")
]]>
@@ -70,6 +76,7 @@
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(19,19))
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(38,19))
Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
+
Do ..AssertSvg(Path, "")
]]>
@@ -80,15 +87,19 @@
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(0,0))
Do CoordinatesList.Insert(##class(TECH.Svg.BasisElementFactory).%New().MaakCoordinaat(19,19))
#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, "")
]]>
Index: vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml
===================================================================
diff -u -r3701 -r3729
--- vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml (.../Test.cls.xml) (revision 3701)
+++ vhUnitTest/TECH/Svg/Services/CoordinatesService/MaakCoordinatenLijstVanPunten/Test.cls.xml (.../Test.cls.xml) (revision 3729)
@@ -7,6 +7,7 @@
@@ -30,7 +32,9 @@
@@ -39,6 +43,7 @@