Index: vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml
===================================================================
diff -u -r3620 -r3642
--- vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(.../Test.cls.xml)	(revision 3620)
+++ vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(.../Test.cls.xml)	(revision 3642)
@@ -3,12 +3,41 @@
 <Class name="vhUnitTest.TECH.Svg.Basis.DomElement.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test bestaan van nieuw basis DomElement">
+<Method name="Test bestaan van nieuw basis DomElement met default waarden in 1 methode">
 <Implementation><![CDATA[
 	
 	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>")
 ]]></Implementation>
 </Method>
+
+<Method name="Test bestaan 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>")
+]]></Implementation>
+</Method>
+
+<Method name="Test invulling van kleur DomElement met default waarde (zwart)">
+<Implementation><![CDATA[
+	Set DomElement = ##class(TECH.Svg.Basis.DomElement).%New()
+	Do DomElement.SetFill()
+	Do $$$AssertEquals(DomElement.Fill,##class(TECH.Svg.enu.Kleur).Zwart(),"")
+]]></Implementation>
+</Method>
+
+<Method name="AssertSvg">
+<FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Replace($$ObjToXML^vhLib(SvgObject), $$$CRLF,""), VerwachteXml)
+]]></Implementation>
+</Method>
 </Class>