Index: vhUnitTest/TECH/Svg/Basis/Circle/Test.cls.xml
===================================================================
diff -u -r3630 -r3645
--- vhUnitTest/TECH/Svg/Basis/Circle/Test.cls.xml	(.../Test.cls.xml)	(revision 3630)
+++ vhUnitTest/TECH/Svg/Basis/Circle/Test.cls.xml	(.../Test.cls.xml)	(revision 3645)
@@ -3,13 +3,22 @@
 <Class name="vhUnitTest.TECH.Svg.Basis.Circle.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test bestaan van een circle klasse">
+<Method name="Test wegschrijven van circle klasse naar svg">
 <Implementation><![CDATA[
 		Set Circle = ##class(TECH.Svg.Basis.Circle).%New(15,35,1)
 		Do ..AssertSvg(Circle, "<circle cx=""15"" cy=""35"" r=""1""></circle>")
 ]]></Implementation>
 </Method>
 
+<Method name="Test correcte invulling v/d property">
+<Implementation><![CDATA[
+		Set Circle = ##class(TECH.Svg.Basis.Circle).%New(15,35,1)
+		Do $$$AssertEquals(Circle.MiddelpuntX,15,"")
+		Do $$$AssertEquals(Circle.MiddelpuntY,35,"")
+		Do $$$AssertEquals(Circle.Straal,1,"")
+]]></Implementation>
+</Method>
+
 <Method name="AssertSvg">
 <FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
 <Private>1</Private>