Index: vhUnitTest/TECH/Svg/Basis/Text/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/Basis/Text/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/Basis/Text/Test.cls.xml	(revision 3635)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.Basis.Text.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan van een line klasse">
+<Implementation><![CDATA[
+		Set Text = ##class(TECH.Svg.Basis.Text).%New(35,30,"hoi")
+		Do ..AssertSvg(Text, "<text x=""35"" y=""30"">hoi</text>")
+]]></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>
+
+
+</Export>
Index: vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/Basis/Path/Test.cls.xml	(revision 3635)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.Basis.Path.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan van een line klasse">
+<Implementation><![CDATA[
+		Set Path = ##class(TECH.Svg.Basis.Path).%New("M40 115 a5 5 0 1 1 0.1 0")
+		Do ..AssertSvg(Path, "<path d=""M40 115 a5 5 0 1 1 0.1 0""></path>")
+]]></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>
+
+
+</Export>
Index: vhUnitTest/TECH/Svg/Basis/Line.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/Basis/Line.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/Basis/Line.cls.xml	(revision 3635)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.Basis.Line">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan van een line klasse">
+<Implementation><![CDATA[
+		Set Line = ##class(TECH.Svg.Basis.Line).%New(35,30,35,40)
+		Do ..AssertSvg(Line, "<line x1=""35"" y1=""30"" x2=""35"" y2=""40""></line>")
+]]></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>
+
+
+</Export>
Index: vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/Basis/Group/Test.cls.xml	(revision 3635)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.Basis.Group.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan van een group klasse met 1 element">
+<Implementation><![CDATA[
+		Set Group = ##class(TECH.Svg.Basis.Group).%New()
+		Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
+		Do Group.VoegToeElement(Rect)
+		Do ..AssertSvg(Group, "<g>  <rect x=""0"" y=""0"" width=""150"" height=""105""></rect></g>")
+]]></Implementation>
+</Method>
+
+<Method name="Test bestaan van een group klasse met 2 elementen">
+<Implementation><![CDATA[
+		Set Group = ##class(TECH.Svg.Basis.Group).%New()
+		Set Circle = ##class(TECH.Svg.Basis.Circle).%New(15,35,1)
+		Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
+		Do Group.VoegToeElement(Rect)
+		Do Group.VoegToeElement(Circle)
+		Do ..AssertSvg(Group, "<g>  <rect x=""0"" y=""0"" width=""150"" height=""105""></rect>  <circle cx=""15"" cy=""35"" r=""1""></circle></g>")
+]]></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>
+
+
+</Export>