Index: vhUnitTest/TECH/StringUtils/Ellipsis/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StringUtils/Ellipsis/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StringUtils/Ellipsis/Test.cls.xml	(revision 2430)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StringUtils.Ellipsis.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Dot3x">
+<Type>%String</Type>
+<Default>...</Default>
+</Parameter>
+
+<Property name="String10">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..String10 = ..GeefStringMetLengte(10)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test MaxLength groter dan String --&gt; geen ellipsis">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 11, ..#Dot3x), "1234567890")
+]]></Implementation>
+</Method>
+
+<Method name="Test MaxLength gelijk aan StringLength --&gt; geen ellipsis">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 10, ..#Dot3x), "1234567890")
+]]></Implementation>
+</Method>
+
+<Method name="Test MaxLength kleiner dan String --&gt; ellipsis">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 9, ..#Dot3x), "123456...")
+	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 9, "-"     ), "12345678-")
+]]></Implementation>
+</Method>
+
+<Method name="Test MaxLength minimaal --&gt; ellipsis">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 4, ..#Dot3x), "1...")
+	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 3, ..#Dot3x), "...")
+	Do $$$AssertEquals(##class(TECH.StringUtils).Ellipsis(..String10, 2, ..#Dot3x), "...")
+]]></Implementation>
+</Method>
+
+<Method name="Test Verschil Tov Oude Implementatie vhLib">
+<Implementation><![CDATA[
+	#dim ResultUtils As %String = ##class(TECH.StringUtils).Ellipsis(..String10, 9, "~")
+	#dim ResultVHLib As %String =            $$Ellipsis^vhLib.String(..String10, 9)
+
+	Do $$$AssertEquals(ResultUtils, "12345678~" )
+	Do $$$AssertEquals(ResultVHLib, "1234567~"  )
+]]></Implementation>
+</Method>
+
+<Method name="GeefStringMetLengte">
+<FormalSpec>AantalChars:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract("12345678901234567890",1,AantalChars)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>