Index: vhUnitTest/TECH/StringUtils.cls.xml
===================================================================
diff -u -r2948 -r3518
--- vhUnitTest/TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2948)
+++ vhUnitTest/TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3518)
@@ -254,6 +254,33 @@
 	Do $$$AssertFalse(##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs("a!b"),"a!b")
 ]]></Implementation>
 </Method>
+
+<Method name="TestGeefGetallenInTekst">
+<Implementation><![CDATA[
+	Kill GevondenGetallen
+	Set GevondenGetallen = ""
+	Do ##class(TECH.StringUtils).GeefGetallenInTekst("", .GevondenGetallen)
+	Do $$$AssertEquals(GevondenGetallen, "")
+	
+	Do ..AssertGevondenGetallen("")
+	Do ..AssertGevondenGetallen("a")
+	Do ..AssertGevondenGetallen("1",1)
+	Do ..AssertGevondenGetallen("23",23)
+	Do ..AssertGevondenGetallen("1a2", 1, 2)
+	Do ..AssertGevondenGetallen("a1b", 1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGevondenGetallen">
+<FormalSpec>Tekst:%String,VerwachteGetallen...:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set GevondenGetallen = ""
+	Do ##class(TECH.StringUtils).GeefGetallenInTekst(Tekst, .GevondenGetallen)
+	Set GevondenGetallenString = ##class(TECH.MultiDimUtils).OneDimKeysToString(.GevondenGetallen,";")
+	Set VerwachteGetallenString = ##class(TECH.MultiDimUtils).OneDimValuesToString(.VerwachteGetallen,";")
+	Do $$$AssertEquals( GevondenGetallenString, VerwachteGetallenString )
+]]></Implementation>
+</Method>
 </Class>