vhUnitTest.TestCase ") Do $$$AssertEquals(Rect.Width,150) Do $$$AssertEquals(Rect.Height,105) Do $$$AssertEquals(Rect.X,0) Do $$$AssertEquals(Rect.Y,0) ]]> ") ]]> ") Do $$$AssertEquals(Line.X1,35) Do $$$AssertEquals(Line.Y1,30) Do $$$AssertEquals(Line.X2,35) Do $$$AssertEquals(Line.Y2,40) ]]> hoi") Do $$$AssertEquals(Text.X,35) Do $$$AssertEquals(Text.Y,30) Do $$$AssertEquals(Text.Content,"hoi") ]]> ") ]]> ") ]]> ") ]]> SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String 1