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, "") ]]>