Index: vhUnitTest/TECH/StringUtils.cls.xml
===================================================================
diff -u -r1598 -r2840
--- vhUnitTest/TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1598)
+++ vhUnitTest/TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2840)
@@ -214,6 +214,25 @@
 	Do $$$AssertEquals(##class(TECH.StringUtils).VoegToeIndienNietLeeg("Tekst",""," || "),"Tekst")
 ]]></Implementation>
 </Method>
+
+<Method name="Test Sort zonder opties">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Sort("C;B;A"),"A;B;C")
+]]></Implementation>
+</Method>
+
+<Method name="Test Sort met extra delimiter">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).Sort("B;A",","),"B;A")
+	Do $$$AssertEquals(##class(TECH.StringUtils).Sort("B,A",","),"A,B")
+]]></Implementation>
+</Method>
+
+<Method name="Test Sort met extra Comparator">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).Sort("B;A",,##class(TECH.Comparator.StringComparator).%New()),"A;B")
+	Do $$$AssertEquals(##class(TECH.StringUtils).Sort("1;42",,##class(TECH.Comparator.IntegerReverseComparator).%New()),"42;1")
+]]></Implementation>
+</Method>
 </Class>