Index: vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml
===================================================================
diff -u -r3642 -r3651
--- vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(.../Test.cls.xml)	(revision 3642)
+++ vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(.../Test.cls.xml)	(revision 3651)
@@ -8,27 +8,35 @@
 	
 	Set DomElement = ##class(TECH.Svg.Basis.DomElement).%New()
 	Do DomElement.SetParameters()
-	Do ..AssertSvg(DomElement,"<DomElement fill=""black"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1""></DomElement>")
+	Do ..AssertSvg(DomElement,"<DomElement fill=""none"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1""></DomElement>")
 ]]></Implementation>
 </Method>
 
-<Method name="Test bestaan van nieuw basis DomElement met default waarden in aparte set methodes">
+<Method name="Test svg van nieuw basis DomElement met default waarden in aparte set methodes">
 <Implementation><![CDATA[
 	
 	Set DomElement = ##class(TECH.Svg.Basis.DomElement).%New()
 	Do DomElement.SetFill()
 	Do DomElement.SetStroke()
 	Do DomElement.SetOverflow()
 	Do DomElement.SetOpacity()
-	Do ..AssertSvg(DomElement,"<DomElement fill=""black"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1""></DomElement>")
+	Do ..AssertSvg(DomElement,"<DomElement fill=""none"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1""></DomElement>")
 ]]></Implementation>
 </Method>
 
-<Method name="Test invulling van kleur DomElement met default waarde (zwart)">
+<Method name="Test invulling property van DomElement met default waarden">
 <Implementation><![CDATA[
 	Set DomElement = ##class(TECH.Svg.Basis.DomElement).%New()
 	Do DomElement.SetFill()
-	Do $$$AssertEquals(DomElement.Fill,##class(TECH.Svg.enu.Kleur).Zwart(),"")
+	Do DomElement.SetStroke()
+	Do DomElement.SetOverflow()
+	Do DomElement.SetOpacity()
+	Do $$$AssertEquals(DomElement.Fill,##class(TECH.Svg.enu.Kleur).Geen(),"")
+	Do $$$AssertEquals(DomElement.Stroke,##class(TECH.Svg.enu.Kleur).Zwart(),"")
+	Do $$$AssertEquals(DomElement.StrokeWidth,1.0,"")
+	Do $$$AssertEquals(DomElement.StrokeDashArray,"none","")
+	Do $$$AssertEquals(DomElement.Overflow,##class(TECH.Svg.enu.Overflow).Visible(),"")
+	Do $$$AssertEquals(DomElement.Opacity,1.0,"")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml
===================================================================
diff -u -r3649 -r3651
--- vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml	(.../Test.cls.xml)	(revision 3649)
+++ vhUnitTest/TECH/Svg/Basis/Rect/Test.cls.xml	(.../Test.cls.xml)	(revision 3651)
@@ -14,7 +14,7 @@
 <Implementation><![CDATA[
 	Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
 	Do Rect.SetParameters()
-	Do ..AssertSvg(Rect, "<rect fill=""black"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1"" x=""0"" y=""0"" width=""150"" height=""105""></rect>")
+	Do ..AssertSvg(Rect, "<rect fill=""none"" stroke=""black"" stroke-width=""1"" stroke-dasharray=""none"" overflow=""visible"" opacity=""1"" x=""0"" y=""0"" width=""150"" height=""105""></rect>")
 ]]></Implementation>
 </Method>